home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / ksd_678 / ksd_678.bas < prev    next >
BASIC Source File  |  1995-08-17  |  183KB  |  3,712 lines
  1. 10 '********************************************************************
  2. 20 '               くしだ　たかお 作品集 1 (keybord operation version)
  3. 30 '
  4. 40 '               (c) くしだたかお + かんの たけし (1995/8)
  5. 50 '********************************************************************
  6. 60 '
  7. 70 CLS : SCREEN@ 0 : DEFINT A-Z
  8. 80 DIM TITLE_6$(6),TEMPO_6$(5)              '曲のﾀｲﾄﾙ,ﾃﾝﾎﾟ格納用配列
  9. 90 DIM TITLE_7$(7),TEMPO_7$(6)
  10. 100 DIM TITLE_8$(6),TEMPO_8$(5),TIME_8$(5)   'fc8は演奏timeも格納
  11. 110 '
  12. 120 DIM FMB$(2),PMB$(2)                      '音源ﾌｧｲﾙ名格納用
  13. 130 DIM A(23)    'VOICE COPY 用配列
  14. 140 DIM V_1(23),V_2(23),V_3(23),V_4(23)      'voice data 退避用
  15. 150 '
  16. 160 LD_FLG=0                                 '音源ﾌｧｲﾙ ﾛｰﾄﾞﾁｪｯｸ用
  17. 170 FC_NUM=-1 : LAST_FC_NUM=-1 : SONG_NUM=-1 'ﾒﾆｭｰｾﾚｸﾄ ﾁｪｯｸ用変数
  18. 180 A_PLAY=0 : A_MODE$="OFF"                 'AUTOPLAY用
  19. 190 G__$="Q8%CT"                 '全ﾄﾗｯｸ初期化用 ("G" は ト音記号のつもり ^_^)
  20. 200 F_C_$="Free Software Collection "
  21. 210 C_8_9$="COMPOSE + MIX  TAKAO KUSHIDA  "
  22. 220 '
  23. 230 ON ERROR GOTO *ERR_TRAP
  24. 240 ON KEY (1) GOSUB *MZK_STP   '演奏中止
  25. 250 '--ﾃﾞｰﾀ読み込み--
  26. 260 FOR I=0 TO 5
  27. 270   READ TITLE_6$(I),TEMPO_6$(I)
  28. 280 NEXT
  29. 290 READ TITLE_6$(6)                'ここには "NUL" を入れておく(AUTOPLAY用)
  30. 300 '
  31. 310 FOR I=0 TO 6
  32. 320   READ TITLE_7$(I),TEMPO_7$(I)
  33. 330 NEXT
  34. 340 READ TITLE_7$(7)
  35. 350 '
  36. 360 FOR I=0 TO 5
  37. 370   READ TITLE_8$(I),TEMPO_8$(I),TIME_8$(I)
  38. 380 NEXT
  39. 390 READ TITLE_8$(6)
  40. 400 '
  41. 410 '--音色ファイル名読み込み--
  42. 420 FOR I=0 TO 2
  43. 430   READ FMB$(I),PMB$(I)
  44. 440 NEXT
  45. 450 '
  46. 460 ' *** MAIN ***
  47. 470 END_FLG=0
  48. 480 WHILE NOT END_FLG    '[0]key で,ﾒﾆｭｰﾙｰﾁﾝをｷｬﾝｾﾙ.
  49. 490 '
  50. 500   GOSUB *MAIN_MENU
  51. 510   GOSUB *SUB_MENU
  52. 520 '
  53. 530 *CHK_END_FLG
  54. 540 WEND
  55. 550 *PRG_END
  56. 560 CLS : END
  57. 570 '============================================================================
  58. 580 '
  59. 590 *MAIN_MENU
  60. 600 SCREEN@ 0 : CONSOLE 0,0,2 : COLOR 4,0,4,0 : LOCATE 0,0,0
  61. 610 PRINT "*******************  『くしだ軽音楽アワー』は これで解決！  *******************"
  62. 620 PRINT
  63. 630 PRINT "SELECT! [ 1 - 3 ]     EXIT [ 0 ]     AUTOPLAY ON/OFF [ 99 ]"
  64. 640 PRINT
  65. 650 FOR I=1 TO 3
  66. 660   IF LAST_FC_NUM=I THEN COLOR ,,,1
  67. 670   PRINT "[ ";I;" ]   ";F_C_$; : PRINT USING "##";I+5 : COLOR ,,,0
  68. 680   PRINT
  69. 690 NEXT
  70. 700 PRINT
  71. 710 PRINT "[ 99  ]   AUTOPLAY is ";A_MODE$
  72. 720 '
  73. 730 LOCATE 0,23,1 : GOSUB *FLASH : INPUT FC_NUM$
  74. 740 IF 0<VAL(FC_NUM$) AND VAL(FC_NUM$)<4 THEN
  75. 750      FC_NUM=VAL(FC_NUM$) : GOTO *LOAD_TONE
  76. 760 ELSE IF FC_NUM$="0" THEN
  77. 770     END_FLG=-1
  78. 780     RETURN *CHK_END_FLG
  79. 790 ELSE
  80. 800   IF FC_NUM$="99" THEN
  81. 810     A_PLAY=(NOT A_PLAY)
  82. 820       IF A_PLAY THEN A_MODE$="ON" ELSE A_MODE$="OFF"
  83. 830   ENDIF
  84. 840     GOTO *MAIN_MENU
  85. 850 ENDIF
  86. 860 '
  87. 870 *LOAD_TONE
  88. 880 WHILE NOT (FC_NUM = LAST_FC_NUM)
  89. 890   LD_FLG=-1 : LOAD@ FMB$(FC_NUM-1) : LOAD@ PMB$(FC_NUM-1) : LD_FLG=0
  90. 900   VOICE COPY 1,V_1 : VOICE COPY 2,V_2 : VOICE COPY 3,V_3 : VOICE COPY 4,V_4
  91. 910   LAST_FC_NUM=FC_NUM
  92. 920 WEND
  93. 930 RETURN
  94. 940 '--- END OF *MAIN_MENU ---
  95. 950 '
  96. 960 *SUB_MENU
  97. 970 IF A_PLAY THEN
  98. 980   GOSUB *AUTOPLAY : GOTO *EXIT_SUB
  99. 990 ELSE
  100. 1000   ON FC_NUM GOSUB *FC6_MENU,*FC7_MENU,*FC8_MENU
  101. 1010 ENDIF
  102. 1020 *EXIT_SUB
  103. 1030 SONG_NUM=0 : RETURN
  104. 1040 '--- END OF *SUB_MENU ---
  105. 1050 '============================================================================
  106. 1060 *AUTOPLAY
  107. 1070 NOWPLAYNG=0
  108. 1080 *A_MENU
  109. 1090 WAIT 100 : PLAY OFF : CLS : SCREEN@ 0 : CONSOLE ,,0 : COLOR 4 : I=0
  110. 1100 PRINT F_C_$;FC_NUM+5,"AUTOPLAY MODE"
  111. 1110 PRINT
  112. 1120 IF FC_NUM=1 THEN
  113. 1130   WHILE NOT TITLE_6$(I)="NUL"
  114. 1140     IF NOWPLAYNG=I THEN COLOR ,,,1
  115. 1150     PRINT "[ "; : PRINT USING "##";I+1; : PRINT " ]   ";TITLE_6$(I) : COLOR ,,,0
  116. 1160     I=I+1
  117. 1170   WEND
  118. 1180   S$=G__$+TEMPO_6$(NOWPLAYNG) : GOSUB *TRK_FMT : GOSUB *V_RESET : GOSUB *HLP : WAIT 80
  119. 1190   ON NOWPLAYNG+1 GOSUB *S_01,*S_02,*S_03,*S_04,*S_05,*S_06
  120. 1200   GOSUB *EXIT_6 : NOWPLAYNG=NOWPLAYNG+1
  121. 1210   IF NOWPLAYNG=I THEN RETURN ELSE GOTO *A_MENU
  122. 1220 ELSE IF FC_NUM=2 THEN
  123. 1230   WHILE NOT TITLE_7$(I)="NUL"
  124. 1240     IF NOWPLAYNG=I THEN COLOR ,,,1
  125. 1250     PRINT "[ "; : PRINT USING "##";I+1; : PRINT " ]   ";TITLE_7$(I) : COLOR ,,,0
  126. 1260     I=I+1
  127. 1270   WEND
  128. 1280   S$=G__$+TEMPO_7$(NOWPLAYNG) : GOSUB *TRK_FMT : GOSUB *V_RESET : GOSUB *HLP : WAIT 80
  129. 1290   ON NOWPLAYNG+1 GOSUB *S_18E,*S_20,*S_22,*S_23,*S_23E,*S_APRIL,*S_VIEW
  130. 1300   GOSUB *EXIT_7 : NOWPLAYNG=NOWPLAYNG+1
  131. 1310   IF NOWPLAYNG=I THEN RETURN ELSE GOTO *A_MENU
  132. 1320 ELSE IF FC_NUM=3 THEN
  133. 1330   WHILE NOT TITLE_8$(I)="NUL"
  134. 1340     IF NOWPLAYNG=I THEN COLOR ,,,1
  135. 1350     PRINT "[ "; : PRINT USING "##";I+1; : PRINT " ]   ";TITLE_8$(I) : COLOR ,,,0
  136. 1360     I=I+1
  137. 1370   WEND
  138. 1380   S$=G__$+TEMPO_8$(NOWPLAYNG) : GOSUB *TRK_FMT : GOSUB *V_RESET : GOSUB *HLP : WAIT 80
  139. 1390   ON NOWPLAYNG+1 GOSUB *S_29,*S_37,*S_38,*S_39,*S_43,*S_42
  140. 1400   GOSUB *EXIT_8 : NOWPLAYNG=NOWPLAYNG+1
  141. 1410   IF NOWPLAYNG=I THEN RETURN ELSE GOTO *A_MENU
  142. 1420 ENDIF
  143. 1430 '
  144. 1440 '===========================================================================
  145. 1450 *FC6_MENU
  146. 1460 SCREEN@ 0 : CONSOLE 0,0,2 : COLOR 4,0,4,0 : LOCATE 0,0,0
  147. 1470 PRINT F_C_$;" 6"
  148. 1480 PRINT
  149. 1490 PRINT "SELECT! [ 1 - 6 ]     BACK to MAIN MENU [ 0 ]"
  150. 1500 PRINT
  151. 1510 FOR I=1 TO 6
  152. 1520   IF SONG_NUM=I THEN COLOR ,,,1
  153. 1530   PRINT "[";I;"]   ";TITLE_6$(I-1) : COLOR ,,,0
  154. 1540 NEXT
  155. 1550 '
  156. 1560 LOCATE 0,23,1 : GOSUB *FLASH : INPUT SONG_NUM$
  157. 1570 IF 0<VAL(SONG_NUM$) AND VAL(SONG_NUM$)<7 THEN
  158. 1580     SONG_NUM=VAL(SONG_NUM$) : GOSUB *PLAY_SONG_6 : GOTO *FC6_MENU
  159. 1590 ELSE IF SONG_NUM$="0" THEN
  160. 1600     RETURN
  161. 1610 ELSE
  162. 1620     GOTO *FC6_MENU
  163. 1630 ENDIF
  164. 1640 '
  165. 1650 '
  166. 1660 *PLAY_SONG_6
  167. 1670 WAIT 30 : PLAY OFF : CLS : SCREEN@ 0 : CONSOLE ,,0 : COLOR 5
  168. 1680 S$=G__$+TEMPO_6$(SONG_NUM-1) : GOSUB *TRK_FMT : GOSUB *V_RESET
  169. 1690 LOCATE 0,0,0 : PRINT TITLE_6$(SONG_NUM-1) : PRINT "written LIFE IN STRATA"
  170. 1700 GOSUB *HLP
  171. 1710 ON SONG_NUM GOSUB *S_01,*S_02,*S_03,*S_04,*S_05,*S_06
  172. 1720 *EXIT_6
  173. 1730 WHILE  PLAY(0) : WEND
  174. 1740 PLAY STOP : KEY (1) OFF : WAIT 50
  175. 1750 RETURN
  176. 1760 '____ END OF FC6_PLAY _____________________________________________________
  177. 1770 '
  178. 1780 *FC7_MENU
  179. 1790 SCREEN@ 0 : CONSOLE 0,0,2 : COLOR 4,0,4,0 : LOCATE 0,0,0
  180. 1800 PRINT F_C_$;" 7"
  181. 1810 PRINT
  182. 1820 PRINT "SELECT! [ 1 - 6 ]     BACK to MAIN MENU [ 0 ]"
  183. 1830 PRINT
  184. 1840 FOR I=1 TO 5
  185. 1850   IF SONG_NUM=I THEN COLOR ,,,1
  186. 1860   PRINT "[";I;"]   ";TITLE_7$(I-1) : COLOR ,,,0
  187. 1870 NEXT
  188. 1880 PRINT : IF SONG_NUM=6 THEN COLOR ,,,1
  189. 1890 PRINT "[ 6 ]   AMBIENTS (included 2 songs HERE. select at the NEXT menu.)" : COLOR ,,,0
  190. 1900 '
  191. 1910 LOCATE 0,23,1 : GOSUB *FLASH : INPUT SONG_NUM$
  192. 1920 IF 0<VAL(SONG_NUM$) AND VAL(SONG_NUM$)<7 THEN
  193. 1930     SONG_NUM=VAL(SONG_NUM$) : GOSUB *PLAY_SONG_7 : GOTO *FC7_MENU
  194. 1940 ELSE IF SONG_NUM$="0" THEN
  195. 1950      RETURN
  196. 1960 ELSE
  197. 1970     GOTO *FC7_MENU
  198. 1980 ENDIF
  199. 1990 '
  200. 2000 '
  201. 2010 *PLAY_SONG_7
  202. 2020 WAIT 30 : PLAY OFF : CONSOLE ,,0 : CLS
  203. 2030 IF SONG_NUM=6 THEN
  204. 2040   GOSUB *AMB_MENU : GOTO *EXIT_7
  205. 2050 ENDIF
  206. 2060 SCREEN@ 0 : COLOR 5
  207. 2070 S$=G__$+TEMPO_7$(SONG_NUM-1) : GOSUB *TRK_FMT : GOSUB *V_RESET
  208. 2080 LOCATE 0,0,0 : PRINT TITLE_7$(SONG_NUM-1) : PRINT "written TAKAO KUSHIDA"
  209. 2090 GOSUB *HLP
  210. 2100 ON SONG_NUM GOSUB *S_18E,*S_20,*S_22,*S_23,*S_23E
  211. 2110 *EXIT_7
  212. 2120 WHILE  PLAY(0) : WEND
  213. 2130 PLAY STOP : KEY (1) OFF : WAIT 50
  214. 2140 RETURN
  215. 2150 '
  216. 2160 '
  217. 2170 *AMB_MENU
  218. 2180 SCREEN@ 2 : CLS
  219. 2190 SYMBOL (100,50),"AMBIENTS            ",1,.6!,[100,200,100],,,1,2
  220. 2200 SYMBOL (100,430),"[ 0 ] to EXIT  ",1,.6!,[100,200,100]
  221. 2210 *FLICK
  222. 2220 SYMBOL (100,70),"1･APRIL FOOL  2･VIEW   (1/2) >",1,.5!,[100,100,130] 
  223. 2230 SYMBOL (100,70),"1･APRIL FOOL  2･VIEW   (1/2) >",1,.5!,[50,50,70] 
  224. 2240 WHILE NOT A$="" : A$="" : A$=INKEY$ : WEND    'ｷｰﾊﾞｯﾌｧｸﾘｱ
  225. 2250 A$=INKEY$
  226. 2260 IF A$="1" OR A$="2" THEN
  227. 2270   GOSUB *PLAY_A_V : GOTO *TO_AMB_MENU
  228. 2280 ELSE IF A$="0" THEN
  229. 2290   RETURN
  230. 2300 ELSE
  231. 2310   GOTO *FLICK
  232. 2320 ENDIF
  233. 2330 '
  234. 2340 *TO_AMB_MENU
  235. 2350 WHILE  PLAY(0) : WEND
  236. 2360 PLAY STOP : KEY (1) OFF : WAIT 30
  237. 2370 GOTO *AMB_MENU
  238. 2380 '
  239. 2390 '
  240. 2400 *PLAY_A_V
  241. 2410 GOSUB *HLP_2
  242. 2420 S$=G__$+TEMPO_7$(VAL(A$)+4) : GOSUB *TRK_FMT : GOSUB *V_RESET
  243. 2430 KEY (1) ON
  244. 2440 IF A$="1" THEN
  245. 2450   SYMBOL (100,70),"1･APRIL FOOL  2･VIEW   (1/2) >",1,.5!,0 : WAIT 10
  246. 2460   SYMBOL (100,70),"APRIL FOOL  [EDIT]          ",1,.5!,[130,100,150]
  247. 2470   GOSUB *S_APRIL
  248. 2480 ELSE IF A$="2" THEN
  249. 2490   SYMBOL (100,70),"1･APRIL FOOL  2･VIEW   (1/2) >",1,.5!,0 : WAIT 10
  250. 2500   SYMBOL (100,70),"VIEW        [OCEAN BEAT MIX]",1,.5!,[130,100,150]
  251. 2510   GOSUB *S_VIEW
  252. 2520 ENDIF
  253. 2530 *END_A_V
  254. 2540 RETURN
  255. 2550 '
  256. 2560 '___ END OF FC7_PLAY _______________________________________________________
  257. 2570 '
  258. 2580 *FC8_MENU
  259. 2590 SCREEN@ 0 : CONSOLE 0,0,2 : COLOR 4,0,4,0 : LOCATE 0,0,0
  260. 2600 PRINT F_C_$;" 8"
  261. 2610 PRINT
  262. 2620 PRINT "SELECT! [ 1 - 7 ]     BACK to MAIN MENU [ 0 ]"
  263. 2630 PRINT
  264. 2640 FOR I=1 TO 6
  265. 2650   IF SONG_NUM=I THEN COLOR ,,,1
  266. 2660   PRINT "[";I;"]   ";TITLE_8$(I-1) : COLOR ,,,0
  267. 2670 NEXT
  268. 2680 PRINT
  269. 2690 IF SONG_NUM=7 THEN COLOR ,,,1
  270. 2700 PRINT "[ 7 ]   SLEEVE DESIGN  (NOT song. hit ANY KEY to BACK here.)" : COLOR ,,,0
  271. 2710 '
  272. 2720 LOCATE 0,23,1 : GOSUB *FLASH : INPUT SONG_NUM$
  273. 2730 IF 0<VAL(SONG_NUM$) AND VAL(SONG_NUM$)<8 THEN
  274. 2740     SONG_NUM=VAL(SONG_NUM$) : GOSUB *PLAY_SONG_8 : GOTO *FC8_MENU
  275. 2750 ELSE IF SONG_NUM$="0" THEN
  276. 2760     RETURN
  277. 2770 ELSE
  278. 2780     GOTO *FC8_MENU
  279. 2790 ENDIF
  280. 2800 '
  281. 2810 *PLAY_SONG_8
  282. 2820 WAIT 30 : PLAY OFF : CONSOLE ,,0
  283. 2830 IF SONG_NUM=7 THEN
  284. 2840   GOSUB *IMAGE : GOTO *EXIT_8
  285. 2850 ENDIF
  286. 2860 CLS : SCREEN@ 0
  287. 2870 S$=G__$+TEMPO_8$(SONG_NUM-1) : GOSUB *TRK_FMT : GOSUB *V_RESET
  288. 2880 SYMBOL (50,50) ,"* "+TITLE_8$(SONG_NUM-1),1,.6!,4,,,0,4
  289. 2890 SYMBOL (50,90) ,"TIME> "+TIME_8$(SONG_NUM-1)+"  BPM> "+TEMPO_8$(SONG_NUM-1),.8!,.6!,4,,,0,3
  290. 2900 IF SONG_NUM>4 THEN
  291. 2910   SYMBOL (50,110),C_8_9$+"1994",.8!,.6!,4,,,0,3
  292. 2920 ELSE
  293. 2930   SYMBOL (50,110),C_8_9$+"1993",.8!,.6!,4,,,0,3
  294. 2940 ENDIF
  295. 2950 GOSUB *HLP
  296. 2960 ON SONG_NUM GOSUB *S_29,*S_37,*S_38,*S_39,*S_43,*S_42
  297. 2970 *EXIT_8
  298. 2980 WHILE  PLAY(0) : WEND
  299. 2990 PLAY STOP : KEY (1) OFF : WAIT 50 : CLS
  300. 3000 RETURN
  301. 3010 '
  302. 3020 '___ END OF FC8_PLAY _______________________________________________________
  303. 3030 '===========================================================================
  304. 3040 *TRK_FMT
  305. 3050 PLAY S$,S$,S$,S$,S$,S$ ,S$,S$,S$,S$,S$,S$,S$,S$ : RETURN
  306. 3060 '
  307. 3070 *V_RESET
  308. 3080 VOICE 1,V_1 : VOICE 2,V_2 : VOICE 3,V_3 : VOICE 4,V_4 : RETURN
  309. 3090 '
  310. 3100 *MZK_STP
  311. 3110 PLAY OFF
  312. 3120 IF FC_NUM=1 THEN
  313. 3130    NOWPLAYNG=I-1 : RETURN *EXIT_6
  314. 3140 ELSE IF FC_NUM=2 THEN
  315. 3150   NOWPLAYNG=I-1
  316. 3160   IF SONG_NUM=6 THEN
  317. 3170     RETURN *END_A_V
  318. 3180   ELSE
  319. 3190     RETURN *EXIT_7
  320. 3200   ENDIF
  321. 3210 ELSE IF FC_NUM=3 THEN
  322. 3220   NOWPLAYNG=I-1 : RETURN *EXIT_8
  323. 3230 ENDIF
  324. 3240 '
  325. 3250 '
  326. 3260 *HLP
  327. 3270 LOCATE 0,22,0 : PRINT "PUSH [ PF 1 ] KEY to STOP" : KEY (1) ON : RETURN
  328. 3280 *HLP_2
  329. 3290 SYMBOL (100,430),"[ 0 ] to EXIT  ",1,.6!,0
  330. 3300 SYMBOL (100,430),"PUSH [ PF1 ] KEY to STOP",1,.6!,[100,200,100] : KEY (1) ON
  331. 3310 RETURN
  332. 3320 '
  333. 3330 *FLASH
  334. 3340 A$=INKEY$ : WHILE NOT A$="" : A$="" : A$=INKEY$ : WEND : RETURN    'ｷｰﾊﾞｯﾌｧｸﾘｱ
  335. 3350 '====================================================================
  336. 3360 *ERR_TRAP
  337. 3370 CLS : BEEP
  338. 3380 IF LD_FLG THEN
  339. 3390   PRINT "CAN'T FIND ",FMB$(FC_NUM-1),PMB$(FC_NUM-1)
  340. 3400 ELSE
  341. 3410   PRINT "SOMETHING WRONG (I am sorry...)"
  342. 3420   PRINT "ERROR NUMBER ==";ERR
  343. 3430 ENDIF
  344. 3440 LOCATE 0,22,0 : PRINT "*** HIT ANY KEY TO QUIT PROGRAM ***"
  345. 3450 GOSUB *FLASH : WHILE A$="" : A$=INKEY$ : WEND : END_FLG=-1
  346. 3460 RESUME *PRG_END
  347. 3470 '====================================================================
  348. 3480 '***以下は諸データ群***
  349. 3490 '
  350. 3500 'FC6
  351. 3510 DATA "LIFE IN STRATA THEME",125
  352. 3520 DATA "AIR  [AMBIENT MIX]",130
  353. 3530 DATA "TANGERINE",155
  354. 3540 DATA "IN A LUSTER",130
  355. 3550 DATA "IN A LUSTER  [LONDON FOG MIX]",140
  356. 3560 DATA "ATONEMENT TECHNO",145,NUL
  357. 3570 '
  358. 3580 'FC7
  359. 3590 DATA "Spinning Digital Cherry   [ edit ]",140
  360. 3600 DATA "FREAKS",140
  361. 3610 DATA "Picaresque   [ PSG MIX ]",140
  362. 3620 DATA "WINTERMIN",122
  363. 3630 DATA "WINTERMIN   [ CREEPING BASS MIX ]",130
  364. 3640 DATA "APRIL FOOL  [ edit ]",127
  365. 3650 DATA "VIEW        [ OCEAN BEAT MIX ]",110,NUL
  366. 3660 '
  367. 3670 'FC8
  368. 3680 DATA "２９ [2D MIX]",135,"05:11"
  369. 3690 DATA "CYPRESS SONG   [ RADIO 6 MIX ]",135,"04:39"
  370. 3700 DATA "ENKA HEAD",143,"03:39"
  371. 3710 DATA "Love Parallel",120,"02:54"
  372. 3720 DATA "JUNO [TRANSY EDIT]",90,"02:19"        '43.bas
  373. 3730 DATA "LAB TIME PARADIGM",115,"05:26",NUL    '42.bas
  374. 3740 '
  375. 3750 'TONE_FILE_NAME
  376. 3760 DATA "ED.FMB","ED.PMB"
  377. 3770 DATA "ED01_FC7.FMB","ED01.PMB"
  378. 3780 DATA "ED01_FC8.FMB","ED01.PMB"
  379. 3790 '
  380. 3800 '============================================================================
  381. 3810 '*** 演奏データ ***
  382. 3820 '===FC6===
  383. 3830 *S_01
  384. 3840 ' LIFE IN STRATA THEME
  385. 3850 '
  386. 3860 C3$="@31V2O2L18 Q3 (%L15ARAR %R15>AR< %L15ARARAR %R15>AR %L15<RR) %C"
  387. 3870 C4$="@80V3O5L18 (FRF&F>FR<F>F< FRRF>FR<F>F<)"
  388. 3880 C5$="@79V3O1L18 ((FF>>>F<<<)5 >F<) "
  389. 3890 C6$="@119V1O4L18  RRER RERR ERRR RRRR RRER RERR ERRE ERER Q8"
  390. 3900 C7$="@78V6O1L18 (F>FF<F>>FF<<F<F>)4"
  391. 3910 D1$="@17V3O3L18 BRRRBRRBRBBRBRBG G#RRRG#RRG#RG#G#RG#RG#E"
  392. 3920 D2$="@17V3O3L18 GRRRGRRGRGGRGRGB G#RRRG#RRG#RG#G#RG#RG#>C<"
  393. 3930 D3$="@77V1O4L18 Q4 (RRRRRRRR) (%L15B%R15B%L15B%R15B)4 %C  Q8"
  394. 3940 D4$="@79V4O0L18  (GRGRGGRG)3  GRGGGR  @41V10O0 CR Q8"
  395. 3950 D5$="@78V4O0L18  (G>>GG<<G>>GG<<G>>>G<<<)3 G>>GGRGR>C<"
  396. 3960 D6$="@82V4O2L18  (GRRG RRGR RR>>G<<R RRRR)"
  397. 3970 D7$="@82V4O4L18  (GRGRGRGG)3 GRGRGRR"
  398. 3980 D8$="@114V5O2L18 Q3 (BB>D#D#DD<A#A# BB>D#D#DDF#F#< ) Q8"
  399. 3990 E3$="@27V4O3L9 F>CC#<F18>C<F18>C<F>C#< F>CC#<F18>C<F18>C<F>C#18C18" 
  400. 4000 F1$="@108V6O2L18 (BRRB RRB&B &B&BG#&G#  G9&G9)"
  401. 4010 F2$="@108V6O2L18 BRRBRRB&B&B&BG#&G#>C9&C9< BRRBRRB&B&B&BG#&G#G9&G9"
  402. 4020 F3$="@102V2O3L18 Q4 ((B)(G#)(G)(A#)(B)(G#)(G)(E)) Q8 "
  403. 4030 F4$="@103V2O2L9 Q4  RGRGRGRGRGRGRGRG Q8 "
  404. 4040 G1$="@127V3O2L18GA#BGA#BGA#GA#BGA#BG#G>G#ED#G#EC#C<BA#>C#E<A#>C#ED#E"
  405. 4050 G2$="@127V3O3L18DE#GDE#FDE# DE#GDE#GG#G >C<BG#B>C<BGF#>C<BG#GF#GF#D"
  406. 4060 G3$="@19V5O5L18 Q3 (BG#GBG#GBG# BG#GBG#GF#G) Q8"
  407. 4070 G4$="@19V5O5L18 Q3 BG#GBG#GBG#BG#GBG#GF#GBG#GBG#GBG#BG#GED#D<BA# Q8"
  408. 4080 H1$="@27V4O2L18 BRBRBBRBBRBRBBRB36G36 (G#RG#RG#G#RG#)"
  409. 4090 H2$="@27V4O2L18 GRGRGGRGGRGRGGRG36B36 (G#RG#RG#G#RG#)"
  410. 4100 I1$="@108V5O1L9 GRGRGRGR GRGRGRGG"
  411. 4110 I2$="@108V5O3L18 Q2 (O3(BG#GE<BG#GE))  Q8"
  412. 4120 I3$="@102V5O1L18 GRGRGGRGGRGRGGRG G#RG#RG#G#RG#G#RG#RG#G#BG# "
  413. 4130 J1$="@77V1O5L18 Q2(%L15G<G>R %L8G<G>R%CG<G>R %R8G<G>R%R15G<GGG>)%CQ8"
  414. 4140 J2$="@56V2O1L18   (BG#GE BG#GE BG#GA# BG#GE)"
  415. 4150 J3$="@27V3O3L18 (CB>C< CB>C< CB) CB>C<CB>CD#C< CB>C< CB>C< CB"
  416. 4160 J4$="@103V3O2L18 Q2 EERE EREE REER ERER  EERE EREE REER ERRR Q8"
  417. 4170 K1$="@81V5O2L9  Q4 B&B&BB18B18 RRRR G#&G#&G#G#18G#18 RRGR Q8"
  418. 4180 K2$="@81V5O2L9  Q4 G&G&GG18G18 RRRR G#&G#&G#G#18G#18 RRRR Q8"
  419. 4190 '
  420. 4200 P1$="@1V15O0L9 GRGRGRGR GRGRGRGG "
  421. 4210 P2$="@5V2O5L18 GRGR RRRG GCGR RRRC  GRGG RRRG CRCR RRGR"
  422. 4220 P3$="@5V3O3L18 RRRR CRRR RRRR CRRR  RRRR CRRR RCRR CRRR"
  423. 4230 P3E$="@7V3O6L18  RRRRRRRR RRRRRRRR RRRRRRRR RRGRGRGR"
  424. 4240 P3F$="@6V5O3L9 RRRR RRRR RRRR RRRG"
  425. 4250 P4$="@6V2O5L9  RCRCRCRC RCRCRCCC"
  426. 4260 P5$="@7V3O7L9  GRGRGRGR GRGRGRGG"
  427. 4270 P6$="@7V3O4L9  RRGR RRGR RRGR RRGR"
  428. 4280 PLAY ,E3$
  429. 4290 PLAY ,E3$,,,,,,,,P3F$
  430. 4300 PLAY ,E3$,C4$,C5$,F3$,,,,,P4$
  431. 4310 PLAY ,E3$,C4$,C5$,F3$,,,,,P4$
  432. 4320 PLAY ,,C4$,C5$,F3$,F4$,P1$,P2$,P3$,P4$,P5$
  433. 4330 PLAY ,,C4$,C5$,F3$,F4$,P1$,P2$,P3$,P4$,P5$
  434. 4340 PLAY ,F1$,C4$,C5$,,F4$,P1$,P2$,P3$,P4$,P5$
  435. 4350 PLAY ,F2$,C4$,C5$,,F4$,P1$,P2$,P3$,P4$,P5$
  436. 4360 PLAY ,F1$,C4$,C5$,,F4$,P1$,P2$,P3$,P4$,P5$
  437. 4370 PLAY ,F2$,C4$,C5$,,F4$,P1$,P2$,P3$,P4$,P5$
  438. 4380 PLAY ,C7$,C4$,C5$,,F4$,P1$,P2$,P3$,P4$,P5$
  439. 4390 PLAY ,C7$,C4$,C5$,D7$,F4$,P1$,P2$,P3E$,P4$,P5$
  440. 4400 PLAY ,C7$,C4$,C5$,,F4$,P1$,P2$,P3$,P4$,P5$
  441. 4410 PLAY ,C7$,C4$,C5$,,F4$,P1$,P2$,P3F$,P4$,P5$
  442. 4420 PLAY D8$,,C4$,C5$,F1$,F4$,P1$,P2$,P3$,P4$,P5$
  443. 4430 PLAY D8$,,C4$,C5$,F2$,F4$,P1$,P2$,P3$,P4$,P5$
  444. 4440 PLAY D8$,,C4$,C5$,F1$,F4$,P1$,P2$,P3$,P4$,P5$
  445. 4450 PLAY D8$,,C4$,C5$,F2$,F4$,P1$,P2$,P3F$,P4$,P5$
  446. 4460 PLAY ,E3$,C4$,C5$,F3$,F4$,P1$,P2$,P3$,P4$,P5$
  447. 4470 PLAY ,E3$,C4$,C5$,F3$,F4$,P1$,P2$,P3$,P4$,P5$
  448. 4480 PLAY ,E3$,C4$,C5$,F3$,F4$,P1$,P2$,P3$,P4$,P5$
  449. 4490 PLAY ,E3$,C4$,C5$,F3$,F4$,P1$,P2$,P3$,P4$,P5$
  450. 4500 PLAY ,F4$,C4$,C5$,C7$,G1$,P1$,,,,,P6$
  451. 4510 PLAY ,F4$,C4$,C5$,C7$,G2$,P1$,,,,,P6$
  452. 4520 PLAY G3$,F4$,C4$,C5$,C7$,G1$,P1$,,,,,P6$
  453. 4530 PLAY G3$,F4$,C4$,C5$,C7$,G2$,P1$,P3E$,P3F$,,,P6$
  454. 4540 PLAY H1$,,C4$,C5$,C7$,D1$,P1$,P2$,P3$,P4$,P5$
  455. 4550 PLAY H2$,,C4$,C5$,C7$,D2$,P1$,P2$,P3$,P4$,P5$
  456. 4560 PLAY H1$,,C4$,C5$,C7$,D1$,P1$,P2$,P3$,P4$,P5$
  457. 4570 PLAY H2$,D3$,C4$,C5$,C7$,D2$,P1$,P3E$,P3F$
  458. 4580 PLAY H1$,,C4$,C5$,C6$,,P1$,P2$,P3$,P4$,P5$
  459. 4590 PLAY H2$,,C4$,C5$,C6$,,P1$,P2$,P3$,P4$,P5$
  460. 4600 PLAY H1$,,C4$,C5$,C6$,,P1$,P2$,P3$,P4$,P5$
  461. 4610 PLAY H2$,,C4$,C5$,C6$,,P1$,P2$,P3E$,P4$,P5$,P3F$
  462. 4620 PLAY H1$,I1$,C4$,C5$,,,P1$
  463. 4630 PLAY H2$,I1$,C4$,C5$,,,P1$
  464. 4640 PLAY H1$,I1$,C4$,C5$,,I2$,P1$
  465. 4650 PLAY H2$,I1$,C4$,C5$,,I2$,P1$,P3E$,P3F$
  466. 4660 PLAY H1$,I1$,I2$,C5$,C7$,F4$,P1$,P2$,P3$,P4$,P5$
  467. 4670 PLAY H2$,I1$,I2$,C5$,C7$,F4$,P1$,P2$,P3$,P4$,P5$
  468. 4680 PLAY H1$,I1$,I2$,C5$,C7$,F4$,P1$,P2$,P3$,P4$,P5$
  469. 4690 PLAY H2$,I1$,I2$,C5$,C7$,F4$,P1$,P2$,P3$,P4$,P5$
  470. 4700 PLAY H1$,I1$,I3$,C5$,C7$,F3$,P1$,P2$,P3$,P4$,P5$
  471. 4710 PLAY H2$,I1$,I3$,C5$,C7$,F3$,P1$,P2$,P3$,P4$,P5$
  472. 4720 PLAY H1$,I1$,I3$,C5$,C7$,F3$,P1$,P2$,P3$,P4$,P5$
  473. 4730 PLAY H2$,I1$,I3$,C5$,C7$,F3$,P1$,P3E$,P3F$
  474. 4740 PLAY H1$,I1$,I2$,C5$,C7$,,P1$,,,P4$
  475. 4750 PLAY H2$,I1$,I2$,C5$,C7$,,P1$,,,P4$
  476. 4760 PLAY H1$,I1$,I2$,C5$,C7$,J1$,P1$,,,P4$
  477. 4770 PLAY H2$,I1$,I2$,C5$,C7$,J1$,P1$,,,P4$
  478. 4780 PLAY H1$,,,C5$,C4$,J1$,P1$,,,P4$,P5$
  479. 4790 PLAY H2$,,,C5$,C4$,J1$,P1$,,,P4$,P5$
  480. 4800 PLAY H1$,,,C5$,C4$,J1$,P1$,,,P4$,P5$
  481. 4810 PLAY H2$,,,C5$,C4$,J1$,P1$,,,P3E$,P3F$
  482. 4820 PLAY J1$,J2$,,,,,,,,,P4$
  483. 4830 PLAY J1$,J2$,,,,,,,,,P4$
  484. 4840 PLAY J1$,J2$,J3$,,,,,P1$,,,P4$,P5$
  485. 4850 PLAY J1$,J2$,J3$,,,,,P1$,,,P4$,P5$
  486. 4860 PLAY K1$,J2$,,J4$,,,,P1$,,,P4$,P5$
  487. 4870 PLAY K2$,J2$,,J4$,,,,P1$,,,P4$,P5$
  488. 4880 PLAY K1$,J2$,,J4$,,,,P1$,,,P4$,P5$
  489. 4890 PLAY K2$,J2$,,J4$,,,,P1$,,,P4$,P5$
  490. 4900 PLAY K1$,,J3$,,,,,P1$,,,P4$,P5$
  491. 4910 PLAY K2$,,J3$,,,,,P1$,,,P4$,P5$
  492. 4920 PLAY K1$,,J3$,,,,,P1$,,,P4$,P5$
  493. 4930 PLAY K2$,,J3$,,,,,P1$,,,P4$,P5$,P3E$,P3F$
  494. 4940 PLAY K1$,,J4$,,,,,P1$,,,P4$,P5$
  495. 4950 PLAY K2$,,J4$,,,,,P1$,,,P4$,P5$
  496. 4960 PLAY K1$,,J4$,,,,,P1$,,,P4$,P5$
  497. 4970 PLAY K2$,,J4$,,,,,P1$,,,P4$,P5$,P3E$,P3F$
  498. 4980 PLAY D8$,D4$
  499. 4990 PLAY D8$,D4$,D5$
  500. 5000 PLAY D8$,D4$,D5$
  501. 5010 PLAY D8$,D4$,D5$
  502. 5020 PLAY D8$,D4$,D5$,,,,,,P3E$
  503. 5030 PLAY D8$,D4$,D5$,D6$,D7$,C5$,P1$,P2$,P3$
  504. 5040 PLAY D8$,D3$,D5$,D6$,D7$,C5$,P1$,P2$,P3$,P3E$,P3F$
  505. 5050 PLAY D8$,D4$,D5$,D6$,D7$,C5$
  506. 5060 PLAY D8$,D4$,D5$,D6$,D7$,C5$,,,P3E$,P3F$
  507. 5070 PLAY ,D4$,D5$,,D7$,C5$,P1$,P2$,P3$
  508. 5080 PLAY ,D4$,D5$,,D7$,C5$,P1$,P2$,P3$,P3E$,P3F$
  509. 5090 PLAY D8$,D4$,D5$,,G3$,C5$,P1$,,,P4$,P5$
  510. 5100 PLAY D8$,D4$,D5$,,G4$,C5$,P1$,,,P4$,P5$
  511. 5110 PLAY D8$,D4$,D5$,,G3$,C5$,P1$,,,P4$,P5$
  512. 5120 PLAY D8$,D4$,D5$,,G4$,C5$,P1$,,,P4$,P5$,P3E$
  513. 5130 PLAY D8$,D4$,D5$,D7$,,C5$,P1$,,,P4$,P5$
  514. 5140 PLAY D8$,D4$,D5$,D6$,,C5$,P1$,,,P4$,P5$
  515. 5150 PLAY D8$,D4$,D5$,D7$,,C5$
  516. 5160 PLAY D8$,D4$,D5$,D6$,,C5$,,,,,,P3E$,P3F$
  517. 5170 RETURN
  518. 5180 '
  519. 5190 '
  520. 5200 *S_02
  521. 5210 'AIR [AMBIENT MIX]
  522. 5220 VOICE COPY 15,A : VOICE 1,A  :  VOICE COPY 17,A : VOICE 2,A
  523. 5230 '
  524. 5240 A1$="@1V7O4L8 RRRR G&G&GE &E2&E2"
  525. 5250 D1$="@1V7O4L8 RRRR E&E&EC &C2&C2"
  526. 5260 A2$="@1V7O4L4 F&F&F >F1"
  527. 5270 D2$="@1V7O4L4 D&D&D >D1"
  528. 5280 A3$="@1V7O4L8 A&A&AG&G&GF&F E&E&E F&F&F G&G"
  529. 5290 D3$="@1V7O4L8 F&F&FE&E&ED&D C&C&C D&D&D E&E"
  530. 5300 A4$="@1V7O4L8 A1 E&E&E F&F&F G&G"
  531. 5310 D4$="@1V7O4L8 F1 C&C&C D&D&D E&E"
  532. 5320 A5$="@1V7O4L8 A1 R>F&F16D&D&D16<A#&A#G  "
  533. 5330 D5$="@1V7O4L8 F1 R>DE16&EC&C16&C<A&A  "
  534. 5340 A6$="@1V7O4L1 AA#"
  535. 5350 D6$="@1V7O4L1 FG   "
  536. 5360 A7$="@1V7O4L8 >C1 <F&F<[[[F]]]>G&G<[[[G]]]>A&A "
  537. 5370 D7$="@1V7O4L8  A1  D&D<[[[D]]]>E&E<[[[E]]]>F&F "
  538. 5380 '
  539. 5390 B1$="@56V5O0L16  FRFR>F<RFFR>F<FR>F<RFR FRFR>F<RFFR>F<FR>F<RAR"
  540. 5400 B2$="@56V5O0L16  GRGR>G<RGGR>G<GR>G<RGR GRGR>G<RGGR>G<GR>G<RER"
  541. 5410 B3$=""
  542. 5420 B4$=""
  543. 5430 E1$="@27V0O4L16 ((FA>CE<)4 )"
  544. 5440 E2$="@27V0O4L16 ((GA#>DF<)4) "
  545. 5450 E3$="@81V0O3L16 %L5 Q2 (E>>C<<F>E<CF>>E<<C E>C<FE>>C<<F>E<C) %C Q8"
  546. 5460 E4$="@81V0O3L16 %R5 Q2 (E>C<F>>E<<CF>E<C E>>C<<FE>C<F>>E<<C) %C Q8"
  547. 5470 E5$="@27V3O3L16 (F>CCR CRCC<) "
  548. 5480 E6$="@15V2O4L16  F<F>F<F> >F<<F >>F<< >F <F>>F<F<F> >F<<F>F<<F>>"
  549. 5490 E6E$=E5$+"@15V4O6L16  C&C<F&F <A#&A#E&E C&C<F&F <A#&A#E>> @17G "
  550. 5500 E6F$=E6$+"@15V4O6L16  R<A&AD  &D<G&GD  &D<A&AD  &D<G&G>>  @17E "
  551. 5510 E6$=E6$+E6$ : E5$=E5$+E5$
  552. 5520 E7$="@83V2O4L16 Q3(<F>FF<F>F<F>FF <F>FF<F>F<F>F<F>)            Q8"
  553. 5530 E8$="@31V0O3L16 Q2((%R15F%R5>F%L5D<%L15A#))3%R5F>FD<G%C F>F<A#>D Q8"
  554. 5540 E9$="@31V0O3L16 Q2((%R15F%R5>F%L5D<%L15A#))3%R5F>FD<G%C F>FA#>D  Q8"
  555. 5550 EE1$="@31V3O3L16 %L5 FFRR F4 O0V0( FF>F<FF>F<F>>F<< )3%C"
  556. 5560 EE2$="@31V3O3L16 %R5 GGRR G4 O0V0( GG>G<GG>G<G>>G<< )3%C"
  557. 5570 E0E$="@31V3O1L16  (F>FF<F>FF<F>F<)4"
  558. 5580 E0F$="@31V3O1L16  (GG>G<GG>G<G>G<) CC>C<CC>C<C>C< EE>E<EE>E<E>E<"
  559. 5590 '
  560. 5600 F1$="@92V2O3L16  Q2 (DA>D<A<D>>A<DQ4<<<A>D>A>DQ2>AD<A>D<A) Q8"
  561. 5610 F2$="@78V4O0L16     (RDDRDRDD @80>D< @78DD @82>D< @78DRDR)"
  562. 5620 F3$="@47V2O3L16     (A<<G>F>><C> D<<D>D<<D>> AGF>C D<<D>D<D>)"
  563. 5630 F4$="@17V3O3L16    FRFRRFRRFRRFFRFR  RRFRRFRRFRRF<F>RFR Q8"
  564. 5640 F5$="@17V3O3L16 Q4 ARARRARRARRAARAR  RRARRARRARRA<A>RAR Q8"
  565. 5650 F6$="@17V3O3L16    RRGRRGRRGRGGGRGR       RRCRRCRRDRRD<E>RER   Q8"
  566. 5660 F7$="@17V3O3L16 Q4 RRA#RRA#RRA#RRA#A#RA#R RRERRERRFRRF<G>RGR   Q8"
  567. 5670 F8$="@17V3O3L16    RRGRRGRRGRRGGRGR         GRGRRGRRGRRG<G>RGR   "
  568. 5680 F9$="@17V3O3L16 Q4 RRA#RRA#RRA#RRA#A#RA#R RRA#RRA#RRA#RRA#<A#>RA#R"
  569. 5690 F0E$="@17V3O3L16  F1"
  570. 5700 F0F$="@17V3O3L16  A1"
  571. 5710 '
  572. 5720 P1$="@1V15O1L16   CRRR RCRC RRCR RRCR  CRCR RCRC RRCR RRRR        "
  573. 5730 Q1$="@1V15O1L16   CRRR RRCC RRCR RRCR  CCRR RCRC RRCR O7@7V3 BRBR "
  574. 5740 S1$="@1V15O1L16   CRRR RRCC RRCR RRCR  CRRR RRRR RRRR RRRR "
  575. 5750 P2$="@5V4O3L16    RRRR DRRR RRRR DRRR  RRRR DRRR RDRR DRRR  "
  576. 5760 Q2$="@5V4O3L16    RRRR DRRR RRRR DRRR  RRRR DRRD R[D]RR DRRR  "
  577. 5770 S2$="@5V4O3L16    RRRR DRRR RRRR DRRR  RRRR RRRR RRRR RRDR        "
  578. 5780 P3$="@5V4O5L16    RRGR GRRR RGRR GRRR  RRGR GRRR GRRR GRRR        "
  579. 5790 S3$="@5V4O5L16    RRGR GRRR RGRR GRRR  RRRR RRRR RRRR GRRR    "
  580. 5800 P4$="@5V2O6L16   ((G[G]G[G]))4"
  581. 5810 S4$="@5V2O6L16   ((G[G]G[G]))"
  582. 5820 P5$="@1V15O0L8    GRGR GRGR GRGR GRGR"
  583. 5830 Q5$="@1V15O0L8    GRGR GRGR L16  GRRRGRRG RRGRGRRR"
  584. 5840 P6$="@1V15O0L16   GRRG RGGR GRRR RRGR  GGRG RGGR GRRR RRRR"
  585. 5850 '
  586. 5860 '
  587. 5870 PLAY E3$,E4$,E1$,E5$
  588. 5880 PLAY E3$,E4$,E2$,E5$
  589. 5890 PLAY E3$,E4$,E1$,E5$
  590. 5900 PLAY E3$,E4$,E2$,E5$
  591. 5910 PLAY E3$,E4$,E1$,E5$,E6$
  592. 5920 PLAY E3$,E4$,E2$,E5$,E6$
  593. 5930 PLAY E3$,E4$,E1$,E5$,E6$
  594. 5940 PLAY E3$,E4$,E2$,E5$,E6E$,E6F$
  595. 5950  PLAY E3$,E4$,E1$,E7$,E6$,,P1$,P2$
  596. 5960  PLAY E3$,E4$,E2$,E7$,E6$,,P1$,Q2$
  597. 5970  PLAY E3$,E4$,E1$,E7$,E6$,,P1$,P2$,P3$,P4$
  598. 5980  PLAY E3$,E4$,E2$,E7$,E6$,,Q1$,Q2$,P3$,P4$
  599. 5990  PLAY E3$,E4$,E1$,E7$,E6$,B1$,P1$,P2$,P3$,P4$
  600. 6000  PLAY E3$,E4$,E2$,E7$,E6$,B1$,P1$,Q2$,P3$,P4$
  601. 6010  PLAY E3$,E4$,E1$,E7$,E6$,B1$,P1$,P2$,P3$,P4$
  602. 6020  PLAY E3$,E4$,E2$,E7$,E6$,B1$,Q1$,Q2$,P3$,P4$
  603. 6030 PLAY ,,E1$,E7$,,B1$,P1$,   ,P3$
  604. 6040 PLAY ,,E2$,E7$,,B2$,P1$,   ,P3$,P4$
  605. 6050 PLAY ,,E1$,E7$,,B1$,P1$,P2$,P3$,P4$
  606. 6060 PLAY ,,E2$,E7$,,B2$,S1$,S2$,S3$,S4$
  607. 6070  PLAY A1$,D1$,E1$,E3$,EE1$,B1$,P1$,P2$,P3$,P4$
  608. 6080  PLAY A2$,D2$,E2$,E3$,EE2$,B2$,P1$,Q2$,P3$,P4$
  609. 6090  PLAY A3$,D3$,E1$,E3$,EE1$,B1$,P1$,P2$,P3$,P4$
  610. 6100  PLAY A4$,D4$,E2$,E3$,EE2$,B2$,Q1$,Q2$,P3$,P4$
  611. 6110  PLAY A1$,D1$,E1$,E3$,EE1$,B1$,P1$,P2$,P3$,P4$
  612. 6120  PLAY A2$,D2$,E2$,E3$,EE2$,B2$,P1$,Q2$,P3$,P4$
  613. 6130  PLAY A3$,D3$,E1$,E3$,EE1$,B1$,P1$,P2$,P3$,P4$
  614. 6140  PLAY A5$,D5$,E2$,E3$,EE2$,B2$,Q1$,Q2$,P3$,P4$
  615. 6150 PLAY A6$,D6$,E1$,E3$,EE1$,B1$,P1$,P2$,P3$,P4$
  616. 6160 PLAY A7$,D7$,E2$,E3$,EE2$,B2$,P1$,Q2$,P3$,P4$
  617. 6170 PLAY A3$,D3$,E1$,E3$,EE1$,B1$,P1$,P2$,P3$,P4$
  618. 6180 PLAY A4$,D4$,E2$,E3$,EE2$,B2$,Q1$,Q2$,P3$,P4$
  619. 6190 PLAY A1$,D1$,,EE1$,E5$ ,E6$
  620. 6200 PLAY A2$,D2$,,EE2$,E5$ ,E6$
  621. 6210 PLAY A3$,D3$,,EE1$,E5$ ,E6$ ,P1$,P2$,P3$,P4$
  622. 6220 PLAY A5$,D5$,,EE2$,E6E$,E6F$,S1$,S2$,S3$,S4$
  623. 6230  PLAY F1$,F2$,   ,E0E$,,,P5$,P2$,P3$,P4$
  624. 6240  PLAY F1$,F2$,   ,E0F$,,,Q5$,Q2$,P3$,P4$
  625. 6250  PLAY F1$,F2$,F3$,E0E$,,,P5$,P2$,P3$,P4$
  626. 6260  PLAY F1$,F2$,F3$,E0F$,,,Q5$,Q2$,P3$,P4$
  627. 6270  PLAY F1$,F2$,F3$,E0E$,E7$,,P5$,P2$,P3$,P4$
  628. 6280  PLAY F1$,F2$,F3$,E0F$,E7$,,Q5$,Q2$,P3$,P4$
  629. 6290  PLAY F1$,F2$,F3$,E0E$,E7$,,P5$,P2$,P3$,P4$
  630. 6300  PLAY F1$,F2$,F3$,E0F$,E7$,,Q5$,S2$,S3$,S4$
  631. 6310 PLAY A1$,D1$,F4$,F5$,E0E$
  632. 6320 PLAY A2$,D2$,F8$,F9$,E0F$
  633. 6330 PLAY A3$,D3$,F4$,F5$,E0E$
  634. 6340 PLAY A4$,D4$,F6$,F7$,E0F$
  635. 6350 PLAY A1$,D1$,F4$,F5$,E0E$,,P6$,P2$,P3$,P4$
  636. 6360 PLAY A2$,D2$,F8$,F9$,E0F$,,P6$,Q2$,P3$,P4$
  637. 6370 PLAY A3$,D3$,F4$,F5$,E0E$,,P6$,P2$,P3$,P4$
  638. 6380 PLAY A5$,D5$,F6$,F7$,E0F$,,P6$,Q2$,P3$,P4$
  639. 6390  PLAY A6$,D6$,F4$,F5$,E0E$,E6$,P5$,P2$,P3$,P4$
  640. 6400  PLAY A7$,D7$,F8$,F9$,E0F$,E6$,Q5$,Q2$,P3$,P4$
  641. 6410  PLAY A3$,D3$,F4$,F5$,E0E$,E6$,P5$,P2$,P3$,P4$
  642. 6420  PLAY A4$,D4$,F6$,F7$,E0F$,E6$,Q5$,Q2$,P3$,P4$
  643. 6430  PLAY A1$,D1$,F4$,F5$,E0E$,E6$,P5$,P2$,P3$,P4$
  644. 6440  PLAY A2$,D2$,F8$,F9$,E0F$,E6$,Q5$,Q2$,P3$,P4$
  645. 6450  PLAY A3$,D3$,F4$,F5$,E0E$,E6$,P5$,P2$,P3$,P4$
  646. 6460  PLAY A5$,D5$,F6$,F7$,E0F$,E6$,Q5$,Q2$,P3$,P4$
  647. 6470 PLAY E1$,,F4$,F5$,E0E$
  648. 6480 PLAY E2$,,F8$,F9$,E0F$
  649. 6490 PLAY E1$,,F4$,F5$,E0E$
  650. 6500 PLAY E2$,,F6$,F7$,E0F$
  651. 6510 PLAY F0E$,F0F$
  652. 6520 RETURN
  653. 6530 '
  654. 6540 '
  655. 6550 *S_03
  656. 6560 'TANGERINE
  657. 6570 VOICE COPY 106,A : VOICE 1,A  :  VOICE COPY 96,A : VOICE 2,A
  658. 6580 '
  659. 6590 A1$="@1V2O3L1  A&A"
  660. 6600 D1$="@1V5O3L1 >C&C"
  661. 6610 A2$="@1V5O3L1  G&G"
  662. 6620 D2$="@1V5O3L1  B&B"
  663. 6630 A3$="@1V5O3L1 >C&C2&C4<B4 "
  664. 6640 D3$="@1V5O3L1 >E&E2&E4 D4"
  665. 6650 A4$="@44V3O3L1A":A4E$="@32V2O3L16Q2(<A>AA<A>AA<A>A)4Q8"
  666. 6660 D4$="@44V3O4L1C":D4E$="@44V3O3L1 >D"
  667. 6670 A5$="@44V3O3L1G":A5E$="@32V2O3L16Q2(<G>GG<G>GG<G>G)4Q8"
  668. 6680 D5$="@44V3O3L1B":A5F$="@32V2O3L16Q2(<G>GG<G>GG<G>G)3Q3A>CEGB>DC<BQ8" 
  669. 6690 A6$="@44V3O3L1F": A6E$="@32V2O3L16Q2(<F>FF<F>FF<F>F)4Q8"
  670. 6700 D6$="@44V3O4L1D":A5G$="@63V0O3L8 A ":A5H$="@63V0O4L8 C" 
  671. 6710 B1$="@56V9O0L16 ARARARAA RAER>DR<ED DRDRDRDD ERERGR>CR< Q8"
  672. 6720 B2$="@56V9O0L16 AARRARAA RAER>ER<ER RRDRDDRR DRDRGRDR Q8"
  673. 6730 B3$="@96V3O3L16((%L5<A>%CE%R5G)%L5<A>%R5E)3(%L5<A>%CE%R5G)%L5<A>%CG"
  674. 6740 B5$="@56V9O0L16  ARAR ARRR RRRR RRAR  ARAR ARRR RARA FRGR  Q8"
  675. 6750 B6$="@56V9O0L8  ARRRRE>D<E RDRRERG>C<  Q8"
  676. 6760 B7$="@56V9O0L8  ARARRE>E<E RDRRRRGR  Q8"
  677. 6770 B8$="@110V9O1L16 Q4 ARARARAA RAARERGR ARAR ARAA RAAR>D<RGR  Q8"
  678. 6780 B9$="@110V9O1L16 Q4 ARARARRR RRRRRRRR RRRR RRRR E4 G&G&GG Q8"
  679. 6790 '
  680. 6800 C1$="@81V3O3L16 Q2 (%L9AA>%R9E<%L9GG>%R9D<%L9F>%CC<)2 Q8"
  681. 6810 C2$=C1$+"@81V3O3L16 Q2(%L9AA>%R9E<%L9GG>%R9D%L9E%CD<)2Q8":C1$=C1$+C1$
  682. 6820 C3$="@81V0O5L16  Q2 (AA<C>A A<C>AA <C>AA<C> A<A>A<C>)2  Q8"
  683. 6830 C4$="@102V7O5L16 Q1 (AAEA AEAA EAA<E> A<A>A<C>)2  Q8"
  684. 6840 C5$="@42V3O1L16 %R5 AARRDRFR FFRFFR<FA> RRRAARAR AAARAR<AF %C Q8"
  685. 6850 C6$="@42V3O1L16 %L5 RRRAARAR AAARAR<AF> AARRDRFR FFRFFR<FA %C Q8"
  686. 6860 C7$="@92V7O1L8    RDDRDDRD RDDRDDRD Q8"
  687. 6870 C8$="@92V7O1L8    <D>DD<D>DD<D>D <D>DD<D>DD<D>D Q8"
  688. 6880 C9$="@92V7O1L8    <D>DD<D>DD<D>D @81@80<D>DD<D>DD<D>D Q8"
  689. 6890 E1$=    "@31V2O2L16   (%L9DA %R9>EF< )2 %L9DA> %R9EF %L9AG %R9FE< "
  690. 6900 E1$=E1$+"             (%L9DA %R9>EF< )2 %L9DA> %R9EF %L9AG %R9>CC %C"
  691. 6910 E2$="@103V3O4L16 Q2(<A>AE<A>AE<A>A) (<G>GD<G>GD<G>G) Q8"
  692. 6920 E3$="@103V3O4L16 Q2(<F>FC<F>FC<F>C) (<G>GD<G>GD<G>G) Q8"
  693. 6930 E4$="@32V3O2L1    "
  694. 6940 E05$="@30V3O3L16  (B>CDE<B>CDE<) B>CDE<B>CDE <B>CGB>C<BG<B"
  695. 6950 E06$="@30V3O3L16 >CRCRCRCCRCCRGRCR CRCRCRCCRCCRGRBR "
  696. 6960 E07$="@30V3O3L16  (B>CDE<)3 B>CDG  >C<BAB AGAG EFED <AB>CD "
  697. 6970 E08$="@30V3O3L16 >(E&E&E&E&EGEG)  B>C<B>D C<BAB> BGEC <BGEG"
  698. 6980 E09$="@30V3O3L16>>ERCRCR<B>C RCR<B>CRDR DRGRDREDRDRC<B>RCR"
  699. 6990 E10$="@30V3O3L16 >B>RCRDR<B>C RDR<B>CRDR <B>RCRDR<B>C RDR<B>CRGR"
  700. 7000 E11$="@30V3O3L16 >B>RCRDR<B>C RGRFERDR   EDCDC<B>C<B AGB>DGB>DG"
  701. 7010 E12$="@63V3O3L16  C"
  702. 7020 '
  703. 7030 G1$="@110V7O2L4 Q8 DRRR RRQ3<AR        Q8"
  704. 7040 G2$="@110V7O2L8 Q8 DRRD RRDR RRRR <A2  Q8"
  705. 7050 G3$="@92V5O0L16 Q4%R5  (@92 DDRD DRRR   DDDR DR@44DR )  Q8%C"
  706. 7060 G4$="@79V3O1L16 Q4%L5  (    DDRD RRDR   DDRD RDDR    )  Q8%C"
  707. 7070 G5$="@103V1O4L16 Q2 (<A>AC<A>AC<A>A)(<A>AE<A>AE<A>A)  Q8"
  708. 7080 G6$="@83V6O2L8   DR[[[D]]]R ARRR  D[[[A]]]DR ARRR  Q8"
  709. 7090 G7$="@88V2O2L16  ]]DA[DA[DADA DADADADA[DADADADA[DADADADA Q8"
  710. 7100 G8$="@88V2O2L16  ]]DA[DA[DADA DADA>D<ADA[DADADADA[DADADADA Q8"
  711. 7110 G9$="@88V2O2L16  ]]DA[DA[DADA DADA>>D<<ADA[DADADADA[DADADADA Q8"
  712. 7120 H1$="@2V4O3L8 D&D4&D&D4>D&D4&D&D4 Q8"
  713. 7130 H2$="@2V4O3L8 R&R4A&A4&A&A4       Q8"
  714. 7140 H3$="@2V4O3L8 D&D4&D&D4>D&D4&D&D4 Q8"
  715. 7150 H4$="@2V4O3L8 R&R4A&A4&A&A4G&G4&G       Q8"
  716. 7160 H5$="@2V7O3L8 RRRRE1"
  717. 7170 H6$="@2V7O3L8 RRRRA1"
  718. 7180 '
  719. 7190 E1E$="@2V6O4L8  ED&D2&D<A2&A V0RRRA"
  720. 7200 E1F$="@2V6O4L8  C4G2&G&G2&G <V0RA&A"
  721. 7210 E2E$="@2V6O4L8  C&C&C&C &C&C<B&B &B&BRR   RB&B&B"
  722. 7220 E2F$="@2V6O4L8  E&E&E&E &E&ED&D  &D&DC&C &C&C&C&C"
  723. 7230 E3E$="@2V6O4L8 <F&F&FG&G&G A&A&AB&B&BA&A G"
  724. 7240 E3F$="@2V6O4L8 <A&A&AB&B&B>C&C&CD&D&DC&C<B"
  725. 7250 E4E$="@2V6O4L8 <G&G&G&G& G&G>D&D &D&D D&D &D&D&D&D"
  726. 7260 E4F$="@2V6O4L8 <E&E&E&E& E&E B&B &B&B&B&B RB&B&B "
  727. 7270 E5E$="@2V6O4L1 <A"
  728. 7280 E5F$="@2V6O4L1  C"
  729. 7290 '
  730. 7300 P1$="@1V15O0L8   GRGRGRGR GRGRGRGR "
  731. 7310 P1E$="@1V15O0L16 GRRR RRRG RRGR RRGR  GRGR RRRG RRGR RRRR "
  732. 7320 Q1$="@1V15O0L8   GRGRGRGR GR L16 GRRG RRGR GR @5V2O4 GR"
  733. 7330 S1$="@1V15O0L8   GRGRGRGR GR "
  734. 7340 S1E$="@1V15O0L16 GRRR RRRG RRGR RRGR GR"
  735. 7350 P2$="@5V3O3L16   RRRRGRRG RRRRGRRR  RRRRGRRG RBRRGRRR"
  736. 7360 S2$="@5V3O3L16   RRRRGRRG RRRRGRRR  RRRRRRRR RRRRRRCR"
  737. 7370 P3$="@5V1O5L16   (([G]G[G]G))4 "
  738. 7380 S3$="@5V1O5L16   (([G]G[G]G))  "
  739. 7390 P4$="@7V3O7L16   ((RRGR))4"
  740. 7400 Q4$="@7V3O7L16   ((RRGR))3 RGGR GR]]] @5V5O3 CR "
  741. 7410 S4$="@7V3O7L16   ((RRGR)) "
  742. 7420 P5$="@5V3O2L16   (RRRRRRRR)3 RRCR G4 "
  743. 7430 '
  744. 7440 '
  745. 7450 PLAY    ,B6$
  746. 7460 PLAY    ,B7$
  747. 7470 PLAY    ,B6$,,,,,P1$
  748. 7480 PLAY    ,B7$,,,,,Q1$
  749. 7490 PLAY B6$,B3$,,,,,P1$,P2$,P3$
  750. 7500 PLAY B7$,B3$,,,,,Q1$,P2$,P3$
  751. 7510 PLAY B6$,B3$,,,,,P1$,P2$,P3$
  752. 7520 PLAY B7$,B3$,,,,,S1$,S2$,S3$,P5$
  753. 7530  PLAY B3$,B1$,A1$,D1$,C1$,C3$,P1$ ,P2$,P3$,P4$
  754. 7540  PLAY B3$,B2$,A2$,D2$,C2$,C3$,Q1$ ,P2$,P3$,P4$
  755. 7550  PLAY B3$,B1$,A1$,D1$,C1$,C3$,P1$ ,P2$,P3$,P4$
  756. 7560  PLAY B3$,B2$,A2$,D2$,C2$,C3$,Q1$ ,P2$,P3$,Q4$
  757. 7570  PLAY    ,   ,A1$,D1$,C1$,C4$,P1E$,P2$,P3$,P4$
  758. 7580  PLAY    ,   ,A3$,D3$,C2$,C4$,P1E$,P2$,P3$,P4$
  759. 7590  PLAY B3$,B1$,A1$,D1$,C1$,C3$,P1$ ,P2$,P3$,P4$
  760. 7600  PLAY B3$,B2$,A2$,D2$,C2$,C3$,Q1$ ,P2$,P3$,Q4$,P5$
  761. 7610 PLAY B3$,B1$,E1E$,E1F$,A4$,A4E$,P1$,P2$,P3$
  762. 7620 PLAY B3$,B2$,E2E$,E2F$,A5$,A5E$,Q1$,P2$,P3$
  763. 7630 PLAY B3$,B1$,E3E$,E3F$,A6$,A6E$,P1$,P2$,P3$
  764. 7640 PLAY B3$,B2$,E4E$,E4F$,A5$,A5E$,Q1$,P2$,P3$
  765. 7650 PLAY B3$,A1$,E1E$,E1F$,A4E$
  766. 7660 PLAY B3$,A2$,E2E$,E2F$,A5E$
  767. 7670 PLAY B3$,A1$,E3E$,E3F$,A6E$,,P1E$,P2$,P3$
  768. 7680 PLAY B3$,A2$,E4E$,E4F$,A5E$,,S1E$,S2$,P3$,P5$
  769. 7690 PLAY B3$,E2$,E5E$,E5F$,,,P1E$,P2$,P3$
  770. 7700 PLAY B3$,E3$,   ,,,,P1E$,P2$,P3$
  771. 7710 PLAY B3$,E2$,E1$,,,,P1$ ,P2$,P3$
  772. 7720 PLAY B3$,E3$,E1$,,,,S1$ ,S2$,S3$,P5$
  773. 7730  PLAY B1$,E1$,E2$,E05$,,,P1$,P2$,P3$,P4$
  774. 7740  PLAY B2$,E1$,E3$,E06$,,,Q1$,P2$,P3$,P4$
  775. 7750  PLAY B1$,E1$,E2$,E07$,,,P1$,P2$,P3$,P4$
  776. 7760  PLAY B2$,E1$,E3$,E08$,,,S1$,S2$,S3$,Q4$
  777. 7770  PLAY B1$,E1$,E2$,E09$,,,P1$,P2$,P3$,P4$
  778. 7780  PLAY B2$,E1$,E3$,E10$,,,Q1$,P2$,P3$,P4$
  779. 7790  PLAY B6$,E1$,E2$,E09$,,,P1$,P2$,P3$,P4$
  780. 7800  PLAY B7$,E1$,E3$,E11$,,,S1$,S2$,S3$,S4$,P5$
  781. 7810  PLAY B1$,E1$,E2$,E12$,,,P1$,P2$,P3$,P4$
  782. 7820  PLAY B2$,E1$,E3$,    ,,,P1$,P2$,P3$,P4$
  783. 7830  PLAY B1$,E1$,E2$,    ,,,P1$,P2$,P3$,P4$
  784. 7840  PLAY B2$,E1$,E3$,    ,,,S1$,S2$,S3$,S4$
  785. 7850  PLAY C5$,C6$,   ,,,,P1$
  786. 7860  PLAY C5$,C6$,   ,,,,Q1$
  787. 7870  PLAY C5$,C6$,G1$,,,,P1$,P2$
  788. 7880  PLAY C5$,C6$,G2$,,,,S1$,S2$
  789. 7890  PLAY C5$,C6$,B9$,G3$,G4$,   ,P1$,P2$
  790. 7900  PLAY C5$,C6$,B9$,G3$,G4$,   ,Q1$,P2$
  791. 7910  PLAY C5$,C6$,B8$,G3$,G4$,   ,P1$,P2$,P3$,P4$
  792. 7920  PLAY C5$,C6$,B8$,G3$,G4$,   ,Q1$,P2$,P3$,P4$
  793. 7930  PLAY C5$,C6$,B8$,G3$,G4$,   ,P1$,P2$,P3$,P4$
  794. 7940  PLAY C5$,C6$,B8$,G3$,G4$,   ,Q1$,P2$,P3$,P4$
  795. 7950  PLAY C5$,C6$,B8$,G3$,H3$,H4$,P1E$,P2$
  796. 7960  PLAY C5$,C6$,B8$,G4$,   ,H4$,P1E$,P2$
  797. 7970  PLAY C5$,C6$,B8$,G3$,H3$,H4$,P1E$,P2$
  798. 7980  PLAY C5$,C6$,B8$,G4$,H1$,H2$,S1E$,S2$,P5$
  799. 7990 PLAY B6$,E1E$,E1F$,A4$,D4$
  800. 8000 PLAY B7$,E2E$,E2F$,A5$,D5$
  801. 8010 PLAY B6$,E3E$,E3F$,A6$,A4$
  802. 8020 PLAY B7$,E4E$,E4F$,A5$,D5$
  803. 8030 PLAY B6$,E1E$,E1F$,A4$,D4$
  804. 8040 PLAY B7$,E2E$,E2F$,A5$,D5$
  805. 8050 PLAY B6$,E3E$,E3F$,A6$,A4$
  806. 8060 PLAY B7$,E4E$,E4F$,A5$,D5$
  807. 8070 PLAY B6$,B9$,E1E$,E1F$,G6$,G7$
  808. 8080 PLAY B7$,B9$,E2E$,E2F$,G6$,G8$
  809. 8090 PLAY B6$,B9$,E3E$,E3F$,G6$,G7$
  810. 8100 PLAY B7$,B9$,E4E$,E4F$,G6$,G9$
  811. 8110 PLAY B6$,B9$,E1E$,E1F$,G6$,G7$
  812. 8120 PLAY B7$,B9$,E2E$,E2F$,G6$,G8$
  813. 8130 PLAY B6$,B9$,E3E$,E3F$,G6$,G7$
  814. 8140 PLAY B7$,B9$,E4E$,E4F$,G6$,G9$
  815. 8150 PLAY B6$,B9$,E5E$,E5F$,G6$,G7$
  816. 8160 PLAY B7$,B9$,,,G6$,G8$
  817. 8170 PLAY B6$,B9$,,,G6$,G7$
  818. 8180 PLAY B7$,B9$,,,G6$,G9$
  819. 8190 PLAY H5$,H6$
  820. 8200 RETURN
  821. 8210 '
  822. 8220 '
  823. 8230 *S_04
  824. 8240 'IN A LUSTER 
  825. 8250 VOICE COPY 10,A : VOICE 1,A  :  VOICE COPY 17,A : VOICE 2,A
  826. 8260 '
  827. 8270 A1$="@2V5O3L16 RRARA8G&G&GA&A&AF8G8  RR<A#8&A#8>G8&GF&F&F C#4"
  828. 8280 D1$="@2V5O3L16 RRFRFRRA4      G  D4  RRF8   D&D&DE&ED&D&D<A8>F8"
  829. 8290 A2$="@2V5O3L16 RRE8 &E8G8 &GF&F&F DRER   >E8&E8<A#8&A#G4&G   E4 "
  830. 8300 D2$="@2V5O3L16 RRC#8 F8&F F8&FE&E&E8C#R  >C#RC#8&C#8<A8&A&AF4G8 "
  831. 8310 A3$="@2V5O3L16 RRE8 &E8G8 &GF&F&F DRER   E8E8G8&GE8 C#  D8 &D8E8"
  832. 8320 D3$="@2V5O3L16 RRC#8 F8&F F8&FE&E&E8C#8&C#F8F8&FF8&FE &E&E C#8A8"
  833. 8330 A4$="@2V5O3L16 F8&F>C8&C&C8&C<A8&A&A8E8 F8&F>C8&C&C8&C<A8&A&A8>C#8"
  834. 8340 D4$="@2V5O3L16 A8&A&A8&AG8&G &G8&GD8C#8 A8&A&A8&AG8&G &G8&G>D4"
  835. 8350 A5$="@2V5O3L16 G8&G8 F8&FF8&F E8  D4   >C#8&C#8<A#8&A#A#8&A# A8G8C#"
  836. 8360 D5$="@2V5O3L16 E8 F8&F8E&E&E F8&F8&FE8  A8 A#8&A#8A&A&AA#8&A#8&A#E8"
  837. 8370 A6$="@2V5O3L16 RRA8&A8E&E8G8&GE8<A8>>C#8&C#8<A8&AA8&A8G&G8&G64>E&E32"
  838. 8380 D6$="@2V5O3L16 RRF8D8&DF8&F8F&F8C#8  A8A#8&A#8A#&A#8G8&GF8>C#&C#"
  839. 8390 A7$="@2V4O3L16>RRERE8RERE8EERF8 RRERE8RERE8EGRF8"
  840. 8400 D7$="@2V4O3L16>RRCRC8RC8C8CC8D8 RRCCC8RC8C8CE8D8"
  841. 8410 A8$=""
  842. 8420 A9$=""
  843. 8430 A0$=""
  844. 8440 A1E$="@30V2O3L16%R1 RRARA8G&G&GA&A&AF8G8 RR<A#8&A#8>G8&GF&F&FC#4 "
  845. 8450 D1E$="@30V2O3L16%L1 RRFRFRRA4      G  D4 RRF8D&D&DE&ED&D&D<A8>F8 "
  846. 8460 A2E$="@30V2O2L8 %R1 RRDR RRDR D&DG&G A#&A#>D&D %C"
  847. 8470 D2E$="@30V2O2L8 %L1 RRRR DRRR RF&FA &A>C#&C#E  %C"
  848. 8480 '
  849. 8490 B1$="@56V5O1L16 DRDR DRRD RDRD DRRR < A#RA#R A#RRA# RA#RA# A#RA#R"
  850. 8500 B2$="@56V5O0L16 GRGR GRRG RGRG GRGR > CRCR CRRC RCRC CRCR"
  851. 8510 B3$="@96V5O2L16 Q2 (FEDRGRER)3 FEDR<AR>ER  Q8"
  852. 8520 B4$=""
  853. 8530 E1$="@27V0O4L16 ((FA>CE<)4 )"
  854. 8540 E2$="@27V0O4L16 ((GA#>DF<)4) "
  855. 8550 E3$="@32V0O3L16 Q2 AAAA>A<RAARAAR>A<RAR AAAR>A<RAA R>A<AR>A<RAR Q8"
  856. 8560 E4$="@106V5O2L16 Q4 (CRGC <G>RCG C<C>GR <C>GRR) Q8"
  857. 8570 E5$="@81V0O3L16 %L5 Q2 (E>>C<<F>E<CF>>E<<C E>C<FE>>C<<F>E<C) %C Q8"
  858. 8580 E6$="@81V0O2L16 %R5 Q2 (E>C<F>>E<<CF>E<C E>>C<<FE>C<F>>E<<C) %C Q8"
  859. 8590 E7$="@34V4O2L16 %L5 Q2 DRRRDRRDRRDRDRDR GGRRGRRGRRGRGRGR  %C Q8"
  860. 8600 E8$="@34V4O2L16 %R5 Q2 ARRRARRARRARARAR>DRRRDRRDRRDRDRDR  %C Q8"
  861. 8610 E9$="@27V3O3L16 (F>CCR CRCC<) "
  862. 8620 E0$="@15V2O4L16  F<F>F<F> >F<<F >>F<< >F <F>>F<F<F> >F<<F>F<<F>>"
  863. 8630 E0E$=E9$+"@15V4O6L16  C&C<F&F <A#&A#E&E C&C<F&F <A#&A#E>> @17A"
  864. 8640 E0F$=E0$+"@15V4O6L16  R<A&AD  &D<G&GD  &D<A&AD  &D<G&G>>  @17E "
  865. 8650 E0$=E0$+E0$ : E9$=E9$+E9$
  866. 8660 F1$="@17V3O3L8   Q2 DAFGFEDE DAFGFGFE Q8"
  867. 8670 F2$="@17V0O3L16  Q2 (AAA<A>AA<A>A)(AAA>A<AA>A<A) Q8"
  868. 8680 F3$="@101V2O1L16  (DDRR>D4<) DDDR>D4< DRDR>A4< Q8"
  869. 8690 F4$="@32V1O3L16  Q2 (D<D>>D<D<D>>D<D>D< DD<D>DD<D>D<D>)   Q8"
  870. 8700 F5$="@31V1O3L16  Q4 (%L15D%L10D%L5D %CD%R5D%R10D%R15D%CD)4      Q8"
  871. 8710 F6$="@31V1O3L16  Q4 (%L15D%L10A%L5>C %CD%R5<D%R10A%R15>C%CD<)4  Q8"
  872. 8720 F7$="@31V1O3L16  Q4 (%L15D%L10A%L5>>C<%CA%R5<D%R10A%R15>>C%C<D<)4Q8"
  873. 8730 '
  874. 8740 G1$="@92V5O1L16 %R5Q4 DRRDRDDR DRRRRRDR DDRDRDDR DRRRRRRR Q8  %C"
  875. 8750 G2$="@92V5O2L16 %CQ2  RRRRDRRR RDRRDRRR RRRRDRRD RDRRDR@83V5DRQ8"
  876. 8760 G3$="@92V5O0L16 %L5Q4 DRDRRRRD RRDRRRDR DDRRRRRD RRDRRRDR Q8  %C"
  877. 8770 G4$="@27V5O3L16    ((ADEG))3 ADEG AEGD"
  878. 8780 G4E$="@27V5O3L16    ((ADEG)) "
  879. 8790 G5$="@91V2O2L16  Q2 DDDDDRDD RDDRDRDR  DDDD DRDD RDDR DRDR Q8"
  880. 8800 G5E$="@91V2O2L16 Q2 DDDDDRDD RDDRDRDR  DDRR ARRD RADR AR@82O4Q8D8"
  881. 8810 G6$="@31V0O4L16      (FFFF F>F<FF FF>F<F FF>F<F) Q8"
  882. 8820 G7$="@31V0O4L16      (GGGG G>G<GG GG>G<G GG>G<G) Q8"
  883. 8830 '
  884. 8840 P1$="@9V15O1L16 CRRR RRRC RRCR RRV8CV15R CRRR RRRC RRCR RRV8CV15R "
  885. 8850 R1$="@9V15O1L16 CRRR RRRC RRCR RRV8CV15R CRRR RRCR RCRR CRRR"
  886. 8860 S1$="@9V15O1L16 CRRR RRRC RRCR RRV8CV15R CRRR RRRR RRRR CRRR"
  887. 8870 P2$="@9V3O3L16  RRRR CRRR RCRR CRRR      RGRR CRRR RCRR CRGR   "
  888. 8880 Q2$="@9V3O3L16  RRRR CRRR GCRR CRRR      RGGR CRRR RCRR CRGR   "
  889. 8890 R2$="@9V3O3L16  RRRR CRRR RCRR CRRR      RRCR CRRC RRGC RR@5C  "
  890. 8900 S2$="@9V3O3L16  RRRR CRRR RCRR CRRR      RRRR RRRR RRRR RRCR  "
  891. 8910 P3$="@9V1O3L16  BRBR BRBR BBBR BRBR BRBR BRBR BBBR BRBR"
  892. 8920 S3$="@9V1O3L16  BRBR BRBR BBBR BRBR "
  893. 8930 P4$="@6V1O7L16  ([B]B[B]B]B[B[B]B)4"
  894. 8940 S4$="@6V1O7L16  (BBBBBBBB)2"
  895. 8950 P5$="@1V15O0L8  GRGRGRGR GRGRGRGR "
  896. 8960 S5$="@1V15O0L8  GRGRGRGR GRRRRRRR "
  897. 8970 Q5$="@1V15O0L8  GRGRGRGR GRGR L16 GGRGGRGR"
  898. 8980 P6$="@5O3L16V1 %L15GD[%L10RG[%L5DR[%CGD[RG[%R5DR[%R10GR[%R15DR" 
  899. 8990 P6$=P6$+" V1 %R15GD[%R10RG[%R5DR[%CGD[RG[%L5DR[%L10GR[%L15DR%C" 
  900. 9000 P7$="@5V5O3L16  R1 V2 BRBR CBRB  V5 RRCR <GR>GR "
  901. 9010 Q7$="@9V2O3L16  (([[GD]]GD[[GD]]GD ]] ) ) "
  902. 9020 '
  903. 9030 '
  904. 9040  PLAY B1$,       ,,,,,   ,P2$
  905. 9050  PLAY B1$,E6$    ,,,,,   ,Q2$
  906. 9060  PLAY B1$,E5$,E6$,,,,P1$,P2$,P3$,P4$
  907. 9070  PLAY B1$,E5$,E6$,,,,S1$,S2$,S3$,S4$
  908. 9080  PLAY B1$,E4$,,E7$,E8$,,P5$,P2$,P3$,P4$
  909. 9090  PLAY B2$,E4$,,E7$,E8$,,Q5$,Q2$,P3$,P4$
  910. 9100  PLAY B1$,E4$,,E7$,E8$,,P5$,P2$,P3$,P4$
  911. 9110  PLAY B2$,E4$,,E7$,E8$,,Q5$,S2$,S3$,S4$
  912. 9120 PLAY B1$,   ,E7$,E8$,F1$,F2$,P5$,P2$,P3$,P4$
  913. 9130 PLAY B2$,   ,E7$,E8$,F1$,F2$,Q5$,Q2$,P3$,P4$
  914. 9140 PLAY B1$,F3$,E7$,E8$,F1$,F2$,P5$,P2$,P3$,P4$
  915. 9150 PLAY B2$,F3$,E7$,E8$,F1$,F2$,Q5$,S2$,S3$,S4$
  916. 9160 PLAY    ,F3$,   ,F4$,F1$,F2$,P5$
  917. 9170 PLAY    ,F3$,   ,F4$,F1$,F2$,Q5$
  918. 9180 PLAY B3$,F3$,E3$,F4$,F1$,F2$,P5$
  919. 9190 PLAY B3$,F3$,E3$,F4$,F1$,F2$,Q5$
  920. 9200  PLAY B3$,F3$,,B1$,,F2$,P5$,P1$,P2$,P3$,P4$
  921. 9210  PLAY B3$,F3$,,B2$,,F2$,Q5$,P1$,Q2$,P3$,P4$
  922. 9220  PLAY B3$,F3$,,B1$,,F2$,P5$,P1$,P2$,P3$,P4$
  923. 9230  PLAY B3$,F3$,,B2$,,F2$,Q5$,P1$,R2$,P3$,P4$
  924. 9240 PLAY B1$,A1$,D1$,F2$
  925. 9250 PLAY B2$,A2$,D2$,F2$
  926. 9260 PLAY B1$,A1$,D1$,F2$
  927. 9270 PLAY B2$,A3$,D3$,F2$,,,P7$
  928. 9280 PLAY B1$,E4$,A1$,D1$,F2$,,P5$,P1$,P2$,P3$,P4$
  929. 9290 PLAY B2$,E4$,A2$,D2$,F2$,,Q5$,P1$,P2$,P3$,P4$
  930. 9300 PLAY B1$,E4$,A1$,D1$,F2$,,P5$,P1$,P2$,P3$,P4$
  931. 9310 PLAY B2$,E4$,A3$,D3$,F2$,,Q5$,P1$,R2$,P3$,P4$
  932. 9320  PLAY B3$,E6$,    ,    ,   ,,,P1$,P2$
  933. 9330  PLAY B3$,E6$,A2E$,D2E$,   ,,,S1$,S2$
  934. 9340  PLAY B3$,E6$,A1E$,D1E$,F5$,,,P5$,P1$,P2$,P3$,P4$
  935. 9350  PLAY B3$,E6$,A2E$,D2E$,F5$,,,Q5$,P1$,R2$,S3$,S4$
  936. 9360 PLAY  ,A1$,D1$,A1E$,D1E$
  937. 9370 PLAY  ,A3$,D3$,A2E$,D2E$,,Q5$,P7$
  938. 9380 PLAY B1$,E5$,A1$,D1$,F2$,F5$,P5$,P1$,P2$,P3$,P4$
  939. 9390 PLAY B2$,E5$,A2$,D2$,F2$,F5$,Q5$,P1$,P2$,P3$,P4$
  940. 9400 PLAY B1$,E5$,A1$,D1$,F2$,F5$,P5$,P1$,P2$,P3$,P4$
  941. 9410 PLAY B2$,E5$,A3$,D3$,F2$,F5$,Q5$,P1$,R2$,P3$,P4$
  942. 9420 PLAY B1$,E5$,A4$,D4$,F2$,F6$,P5$,P1$,P2$,P3$,P4$
  943. 9430 PLAY B2$,E5$,A5$,D5$,F2$,F7$,Q5$,P1$,P2$,P3$,P4$
  944. 9440 PLAY B1$,E5$,A4$,D4$,F2$,F6$,P5$,P1$,P2$,P3$,P4$
  945. 9450 PLAY B2$,E5$,A6$,D6$,F2$,F7$,S5$,S1$,S2$,S3$,S4$,P7$
  946. 9460 PLAY B1$,E5$,A7$,D7$,F2$,F6$,P5$,P1$,P2$,P3$,P4$
  947. 9470 PLAY B2$,E5$,A5$,D5$,F2$,F7$,Q5$,P1$,P2$,P3$,P4$
  948. 9480 PLAY B1$,E5$,A7$,D7$,F2$,F6$,P5$,P1$,P2$,P3$,P4$
  949. 9490 PLAY B2$,E5$,A6$,D6$,F2$,F7$,Q5$,P1$,P2$,P3$,P4$,Q7$
  950. 9500 PLAY G1$,G2$,G3$,,,,   ,P1$,P2$,P3$,P4$
  951. 9510 PLAY G1$,G2$,G3$,,,,   ,S1$,S2$,S3$,S4$,P7$
  952. 9520 PLAY G1$,G2$,G3$,G4$,,,P5$,P1$,P2$,P3$,P4$
  953. 9530 PLAY G1$,G2$,G3$,G4$,,,Q5$,P1$,R2$,P3$,P4$
  954. 9540 PLAY G1$,G2$,G3$,G4$ ,G5$ ,G6$,P5$,P1$,P2$,P3$,P4$
  955. 9550 PLAY G1$,G2$,G3$,G4$ ,G5$ ,G7$,Q5$,P1$,Q2$,P3$,P4$
  956. 9560 PLAY G1$,G2$,G3$,G4$ ,G5$ ,G6$,P5$,P1$,P2$,P3$,P4$
  957. 9570 PLAY G1$,G2$,G3$,G4E$,G5E$,G7$,S5$,S1$,S2$,S3$,S4$,P7$
  958. 9580 PLAY G1$,G2$,G3$,G4$,E7$,E8$,P5$,P1$,P2$,P3$,P4$
  959. 9590 PLAY G1$,G2$,G3$,G4$,E7$,E8$,Q5$,P1$,Q2$,P3$,P4$
  960. 9600 PLAY G1$,G2$,G3$,G4$,E7$,E8$,P5$,P1$,P2$,P3$,P4$
  961. 9610 PLAY G1$,G2$,G3$,G4$,E7$,E8$,S5$,S1$,S2$,S3$,S4$
  962. 9620 PLAY ,G2$,,G4$,E7$,E8$,   ,P1$,P2$,P3$,P4$
  963. 9630 PLAY ,G2$,,G4$,E7$,E8$,   ,P1$,Q2$,P3$,P4$
  964. 9640 PLAY ,G2$,,G4$,E7$,E8$,P5$,P1$,P2$,P3$,P4$
  965. 9650 PLAY ,G2$,,G4$,E7$,E8$,Q5$,S1$,S2$,P3$,P4$
  966. 9660 PLAY ,G2$,,G4$,,,P5$,P1$,P2$,P3$,P4$
  967. 9670 PLAY ,G2$,,G4$,,,S5$,S1$,S2$,S3$,S4$,P7$
  968. 9680 PLAY ,G2$,,G4$,,,P5$,P1$,P2$,P3$,P4$
  969. 9690 PLAY ,G2$,,G4$,,,Q5$,S1$,S2$,P3$,P4$
  970. 9700 RETURN
  971. 9710 '
  972. 9720 '
  973. 9730 *S_05
  974. 9740 'IN A LUSTER  [LONDON FOG MIX]
  975. 9750 VOICE COPY 17,A : VOICE 1,A  :  VOICE COPY 17,A : VOICE 2,A
  976. 9760 '
  977. 9770 A1$="@1V7O3L1 D L8 RF&F16F&F&F16D&D E"
  978. 9780 C1$="@1V7O3L1 F L8 RAG16&GE&E16&EC# G"
  979. 9790 A2$="@1V7O3L1 D L8 <A4 A A&A>E   E"
  980. 9800 C2$="@1V7O3L1 F L8  C#RR C#&C#4  G"
  981. 9810 A3$="@1V7O3L1 D L8 R<A4>C#4C#4    C#"
  982. 9820 C3$="@1V7O3L1 F L8 R    C#D4D4<A> E"
  983. 9830 A4$="@1V7O3L8 D&D&D&D&DG&G&G E&E&E   &E&E<G&G&G   "
  984. 9840 C4$="@1V7O3L8 F&F&F A&A&A&AF C#&C#&C#<A&A&A&AF     "
  985. 9850 A5$="@1V7O3L8<D&D&DF&F  E&E F   E&EC#2      E "
  986. 9860 C5$="@1V7O3L8<F&F E&E&E G&G&G   G&G&G F&F&F&F  "
  987. 9870 A6$="@1V7O3L8<D&D&DF&F  E&E F   E&EC#&C#4 G&GE"
  988. 9880 C6$="@1V7O3L8<F&F E&E&E G&G&G   G&G&G D&D&DF&F  "
  989. 9890 A7$="@1V7O3L1 D&D"
  990. 9900 C7$="@1V7O3L1 F&F"
  991. 9910 A8$=""
  992. 9920 B1$="@56V7O1L16 DRRRDRRD RRDRDR<GR  ARRRARRA RRARAR>GR"
  993. 9930 B2$="@56V7O1L16 DDRRDRRD RRDRDR<GR  ARRRARRA RRARAR>GR"
  994. 9940 B3$="@56V7O1L16 DDRRDRRD RRDRDR<GR  ARRRARRA &A&A&A&A AA>GR  "
  995. 9950 B4$="@56V7O1L16 DRRRC&C&CDRCDRF4    DR[[D]]RC&C&CDRCDRG4"
  996. 9960 B5$="@56V7O1L16 DRRRC&C&CDRCDRF4    DR[[D]]RC&C&CDRCDR<A4"
  997. 9970 B6$="@56V7O1L16 DRRRC&C&CDRCDRF4    DR[[D]]RC&C&CDRCDRA4"
  998. 9980 D1$="@81V5O3L16 Q3 (DR>DRDR<<A>A RAAR<F>RAR)      Q8"
  999. 9990 D2$="@27V5O3L16 D&D8DDRRR RR<A&A8>C&C8  D&D8DDRRR RRG&G8C&C8 Q8"
  1000. 10000 D3$="@77V3O4L16 Q2 DR>DR<DR>DR<DRDDRD>D<R DR>DR<DR>DR<DR>D<DR>D>DRQ8"
  1001. 10010 D4$="@27V5O3L8 DCRR RRRR RRRR RRCR "
  1002. 10020 D5$="@27V5O3L8 DCRR RRRR DRRR CRF4 "
  1003. 10030 D6$="@27V5O3L1 D<A2&A4&A8>F8"
  1004. 10040 D7$="@81V0O4L16 Q2 ER>CR ER<EG RDFRERGR  ER>CR ER<EG RDFRER>ER Q8"
  1005. 10050 D8$="@81V0O4L16 Q2 ER>CR ER<EG RDFRGR>CR<ER>CR ER<EG RDFRCRER  Q8"
  1006. 10060 G1$="@54V5O2L16  DRDR>DRRD<D>D<DR>D<RRR DRDR>DRRD<D>D<DR>D<R<D>R"
  1007. 10070 G2$="@80V5O2L16  (Q2 O2 DD Q8 O7 F R Q2 O2 DD Q8 O7 F O6 F)4  "
  1008. 10080 G3$="@81V4O2L16  (DD>D<DD>D<D>D<)3 DD>D<DD>D<A>A<"
  1009. 10090 G4$="@81V4O2L16  (FF>F<FF>F<F>F<)EE>E<EE>E<E>E<C#C#>C#<C#C#>C#<C#>C#"
  1010. 10100 G5$="@107V1O3L16 Q4 AAAR>A<RAARAAR>A<RAR AAAR>A<RRAR>A<AR>A<RAR Q8"
  1011. 10110 G6$="@77V2O5L16 Q4 (AA>A<AA>A<A>A<)3 AA>A<AA>A<A>>D  Q8"
  1012. 10120 G7$="@107V2O4L16 Q8 D<DA>A<D>DF<A> (<DA>A<DA>D<D>D) AD<AR DAR>D Q8"
  1013. 10130 G8$="@20V4O3L16 Q4 (DR>DR <ARD>D R<ARD AR>AR< ) Q8"
  1014. 10140 G91$="@27V5O3L16 Q5 %L5(D>D<D>DD<D>D>D<<)4 Q8"
  1015. 10150 G81$="@27V5O3L16 Q5 %R5(D>D<D>DD<D>D>D<<)4 Q8"
  1016. 10160 G92$="@27V5O3L16 Q5 %L5(A>A<A>AA<A>A>A<<)4 Q8"
  1017. 10170 G82$="@27V5O3L16 Q5 %R5(A>A<A>AA<A>A>A<<)4 Q8"
  1018. 10180 G93$="@27V5O3L16 Q5 %L5(A#>A#<A#>A#A#<A#>A#>A#<<)4 Q8"
  1019. 10190 G83$="@27V5O3L16 Q5 %R5(A#>A#<A#>A#A#<A#>A#>A#<<)4 Q8"
  1020. 10200 G94$="@27V5O3L16 Q5%L5(F>F<F>FF<F>F>F<<)(C#>C#<C#>C#C#<C#>C#>C#<<)Q8"
  1021. 10210 G84$="@27V5O3L16 Q5%R5(F>F<F>FF<F>F>F<<)(C#>C#<C#>C#C#<C#>C#>C#<<)Q8"
  1022. 10220 G95$="@27V5O3L16Q5%L5(F>F<F>FF<F>F>F<<)C#>C#<C#>C#C#<C#>C#>C#<<C#2Q8"
  1023. 10230 G85$="@27V5O3L16Q5%R5(F>F<F>FF<F>F>F<<)C#>C#<C#>C#C#<C#>C#>C#<<C#2Q8"
  1024. 10240 '
  1025. 10250 P1$="@1V15O1L16 CRCR RRCC RRCR RRCR  CCRR RRCC RRCR RRRC"
  1026. 10260 P1E$="@1V15O0L8 GRGRGRGR GRGRGRGR"
  1027. 10270 S1$="@1V15O1L16 CRCR RRCC RRCR RRCR  CRRR RRRR RRRR RRCR"
  1028. 10280 P2$="@1V5O2L16  RRRR CRRR RCRR CRRR  RRRR CRRR RCRR CRCR"
  1029. 10290 S2$="@1V5O2L16  RRRR CRRR RCRR CRRR  RRRR RRRR @5V4O2L16 RRGR>CRRR"
  1030. 10300 P3$="@5V2O4L16  BRBR CRBB RRBR CRBR  BBBR CRBB RCBR CRCB"
  1031. 10310 S3$="@5V2O4L16  BRBR CRBB RRBR CRBR  BBRR RRRR RRRR RRCR"
  1032. 10320 P4$="@5V2O6L16 BC32[[C32]]BCBCBC BCBCBCBC BCBCBCBC BCBCB32C32CBC"
  1033. 10330 S4$="@5V2O6L16 BC32[[C32]]BCBCBC BCBCBCBC BCBCB32C32CBC"
  1034. 10340 P5$="@5V3O4L16  (%L5CR[[C]]R%R5<C>RRR%L5CB[[C]]R%R5<CR<GR>>)%C"
  1035. 10350 P6$="@5V3O3L16  RRRRRRRR RRRRRRRR RRRRRRRR GGRG ]]C[[G<GR "
  1036. 10360 '
  1037. 10370 '
  1038. 10380 PLAY B1$,A1$,C1$,,,,P1$,P2$,P3$
  1039. 10390 PLAY B2$,A2$,C2$,,,,P1$,P2$,P3$
  1040. 10400 PLAY B1$,A1$,C1$,,,,P1$,P2$,P3$,P4$
  1041. 10410 PLAY B3$,A3$,C3$,,,,S1$,S2$,S3$,S4$
  1042. 10420 PLAY B1$,A1$,C1$,D1$,D3$,D2$,P1$,P2$,P3$,P4$
  1043. 10430 PLAY B2$,A2$,C2$,D1$,D3$,D2$,P1$,P2$,P3$,P4$
  1044. 10440 PLAY B1$,A1$,C1$,D1$,D3$,D2$,P1$,P2$,P3$,P4$
  1045. 10450 PLAY B3$,A3$,C3$,D1$,D3$,D2$,S1$,S2$,S3$,P4$
  1046. 10460  PLAY    ,A1E$,C1E$,D1$,D3$,D2$,P1$,P2$,P3$,P4$
  1047. 10470  PLAY ,,,D1$,D3$,D2$,S1$,S2$,S3$,S4$
  1048. 10480  PLAY ,,,D1$,D3$,D2$,P1$,P2$,P3$,P4$,P5$
  1049. 10490  PLAY ,,,D1$,D3$,D2$,S1$,P2$,P3$,P4$,P5$
  1050. 10500  PLAY ,,,,D4$,D3$,P1$,,P3$,P4$,P5$
  1051. 10510  PLAY ,,,,D5$,D3$,S1$,,P3$,P4$,P5$
  1052. 10520  PLAY ,,,,D4$,D3$,P1$,,P3$,P4$,P5$
  1053. 10530  PLAY ,,,,D6$,D3$,S1$,,P3$,P4$,P5$
  1054. 10540 PLAY B4$,,,D1$,D3$,D2$,P1$,P2$,P3$,P4$
  1055. 10550 PLAY B5$,,,D1$,D3$,D2$,S1$,P2$,P3$,P4$
  1056. 10560 PLAY B4$,,,D1$,D3$,D2$,P1$,P2$,P3$,P4$
  1057. 10570 PLAY B6$,,,D1$,D3$,D2$,S1$,S2$,P3$,P4$
  1058. 10580 PLAY B4$,   ,G5$
  1059. 10590 PLAY B5$,   ,G5$
  1060. 10600 PLAY B4$,D4$,G5$,G8$,   ,D7$
  1061. 10610 PLAY B6$,D6$,G5$,G8$,G6$,D8$,P6$
  1062. 10620  PLAY B4$,G91$,G81$,G6$,G7$,G8$,P1$,P2$,P3$,P4$
  1063. 10630  PLAY B5$,G92$,G82$,G6$,G7$,G8$,P1$,P2$,P3$,P4$
  1064. 10640  PLAY B4$,G91$,G81$,G6$,G7$,G8$,P1$,P2$,P3$,P4$
  1065. 10650  PLAY B6$,G94$,G84$,G6$,G7$,G8$,S1$,S2$,S3$,S4$
  1066. 10660  PLAY B4$,G91$,G81$,G6$,G7$,G8$,P1$,P2$,P3$,P4$
  1067. 10670  PLAY B5$,G92$,G82$,G6$,G7$,G8$,P1$,P2$,P3$,P4$
  1068. 10680  PLAY B4$,G93$,G83$,G6$,G7$,G8$,P1$,P2$,P3$,P4$
  1069. 10690  PLAY B6$,G94$,G84$,G6$,G7$,G8$,S1$,S2$,S3$,S4$
  1070. 10700 PLAY B4$,G91$,G81$,G5$,,G8$
  1071. 10710 PLAY B5$,G92$,G82$,G5$,,G8$
  1072. 10720 PLAY B4$,G91$,G81$,G5$,,G8$,P1$,P2$,P3$,P4$
  1073. 10730 PLAY B6$,G95$,G85$,G5$,,G8$,S1$,S2$,S3$,S4$
  1074. 10740 PLAY B1$,G1$,G2$,A1$,C1$,D7$,P1$,P2$,P3$,P4$
  1075. 10750 PLAY B2$,G1$,G2$,A2$,C2$,D8$,P1$,P2$,P3$,P4$
  1076. 10760 PLAY B1$,G1$,G2$,A1$,C1$,D7$,P1$,P2$,P3$,P4$
  1077. 10770 PLAY B2$,G1$,G2$,A3$,C3$,D8$,S1$,S2$,P3$,P4$
  1078. 10780  PLAY B1$,G1$,G2$,A4$,C4$,D7$,P1$,P2$,P3$,P4$
  1079. 10790  PLAY B2$,G1$,G2$,A5$,C5$,D8$,P1$,P2$,P3$,P4$
  1080. 10800  PLAY B1$,G1$,G2$,A4$,C4$,D7$,P1$,P2$,P3$,P4$
  1081. 10810  PLAY B2$,G1$,G2$,A6$,C6$,D8$,S1$,P2$,P3$,P4$
  1082. 10820  PLAY B1$,G2$,G3$,A4$,C4$,D7$,P1$,P2$,P3$
  1083. 10830  PLAY B2$,G2$,G4$,A5$,C5$,D8$,P1$,P2$,P3$
  1084. 10840  PLAY B1$,G2$,G3$,A4$,C4$,D7$,P1$,P2$,P3$
  1085. 10850  PLAY B2$,G2$,G4$,A6$,C6$,D8$,S1$,S2$,S3$
  1086. 10860 PLAY B1$,G91$,A1$,C1$
  1087. 10870 PLAY B2$,G91$,A2$,C2$
  1088. 10880 PLAY B1$,G91$,A1$,C1$
  1089. 10890 PLAY B2$,G94$,A3$,C3$
  1090. 10900 PLAY B1$,G91$,A7$,C7$
  1091. 10910 PLAY B2$,G92$
  1092. 10920 PLAY B1$,G91$
  1093. 10930 PLAY B2$,G94$
  1094. 10940 RETURN
  1095. 10950 '
  1096. 10960 '
  1097. 10970 *S_06
  1098. 10980 'ATONEMENT TECHNO
  1099. 10990 VOICE COPY 17,A : VOICE 1,A  :  VOICE COPY 81,A : VOICE 2,A
  1100. 11000 '
  1101. 11010 A1$="@1V5O3L16  DRRD RRDR RRDR RRDR  <ARRA RRAR RRAR ARAR"
  1102. 11020 D1$="@1V5O3L16  FRRF RRFR RRFR RRFR   CRRC RRCR RRCR CRCR"
  1103. 11030 A2$="@1V5O3L16  CRRC RRCR RRCR RRCR  <GRRR  GRRA RRAR ARAR"
  1104. 11040 D2$="@1V5O3L16  ERRE RRER RRER RRER  <A#RRR A#>RRC RRCR CRCR"
  1105. 11050 A3$="@1V7O4L8   RRRRRR RD  RRRRRR RF  "
  1106. 11060 D3$="@1V7O4L8   RRRRRR RF  RRRRRR RA  "
  1107. 11070 A4$="@1V7O4L8   RRRRRR<RG  RRRRRR A>E "
  1108. 11080 D4$="@1V7O4L8   RRRRRR<RA# RRRRRR >C#&C#  "
  1109. 11090 A5$="@1V7O4L16 (RRRR)3 RRDR  FGFE  D<A#A>C#  RRDR RDRR "
  1110. 11100 D5$="@1V7O4L16 (RRRR)3 RRFR  DEDC#<A GF#A>  <RRAR RARD "
  1111. 11110 A6$="@2V3O4L8   <RA&A>F&F&F&F&F  <RA&A>G&G&G&G&G Q8"
  1112. 11120 D6$="@2V3O4L8   RC#D&D &D&D&D&D   RC#D&D&D&D&D&D Q8"
  1113. 11130 A7$="@2V3O4L8   <RA&A>E&E&E&E&E  Q8"
  1114. 11140 D7$="@2V3O4L8   RC#D&D &D&D&D&D  Q8"
  1115. 11150 A8$="@17V7O3L16Q2  FRRR FRRF RRFR FRFR GGRR GRRG RRGR GRGR    Q8"
  1116. 11160 D8$="@17V7O3L16Q2 >CRRR CRRC RRCR CRCR DDRR DRRD RRDR DRDR    Q8"
  1117. 11170 A9$="@17V7O3L16Q2 >DR<DRDR>D<DRD>DR<DRDR >DR<DRDR>D<DR>D<DRDRDR Q8"
  1118. 11180 D9$="@17V7O3L16Q2 >GR<GRGR>G<GRG>GR<GRGR >GR<GRGR>G<GR>G<GRGRGR Q8"
  1119. 11190 B1$="@56V6O1L16  DRDRDRDDRDDRDRGR DRDRDRDDRDDRDRAR"
  1120. 11200 B2$="@56V6O1L16  DRDRDRDDRDDRDRGR "
  1121. 11210 B3$="@18V7O1L16 Q2 (D<D>D<D>D<D>D<D> DFDDFD<D>D)  Q8"
  1122. 11220 B4$="@18V7O1L16 Q2 (D<D>)4 DFDDFD<D>D (D<D>)4 DFA>DFA>DF Q8"
  1123. 11230 B5$=""
  1124. 11240 C1$="@54V5O2L16  DRDR>DRRD<D>D<DR>D<RRR DRDR>DRRD<D>D<DR>D<R<D>R"
  1125. 11250 C2$="@81V4O2L16  (DD>D<DD>D<D>D<)4"
  1126. 11260 C2E$="@81V4O2L16 (DD>D<DD>D<D>D<)3 DD>D<D DR @77D&D"
  1127. 11270 C3$="@102V7O1L16 Q2 (D<D>D<D>D<D>D<D> DFDDFD<D>D)  Q8"
  1128. 11280 C3E$="@22V9O1L16 Q2 (D<D>D<D>D<D>D<D> DFDDFD<D>D)  Q8"
  1129. 11290 C4$="@80V5O2L16  (Q2 O2 DD Q8 O7 F R Q2 O2 DD Q8 O7 F O6 F)4  "
  1130. 11300 C5$="O1L16 Q4(V9@79D4 @80O6D4O1)3 V9@79DDRD @41>>>D<<< @79RDR Q8"
  1131. 11310 C6$="@91V10O0L8  RRRRRRRR FRFRFR @65V3 C&C "
  1132. 11320 E1$="@54V3O2L16 RRAR ARRA RARA ARGR  RRAR ARRA RARA AR>C<R "
  1133. 11330 E2$="@54V3O2L16 RRAR ARRA RARA ARGR  ARAR ARAA RAAR ARER "
  1134. 11340 E3$="@54V3O2L16 RRAR ARRA RARA ARGR  ARAR ARAA RAAR AR>E<R "
  1135. 11350 E4$="@119V0O2L16 ((%L15<D>%R15D)4 %L9<D>D%R9>D<D (%L15<D>%R15D))%C"
  1136. 11360 '
  1137. 11370 P1$="@1V15O0L16 GRRR RRRG RRGR RRV5GV15R GRGR RRRG RRGR RRV5GV15R" 
  1138. 11380 Q1$="@1V15O0L16 GGRR RRRG RRGR RRV5GV15R GGGR RGRG RRGR RR>GR "
  1139. 11390 R1$="@1V15O0L16 GRRR RRRG RRGR RRV5GV15R G"
  1140. 11400 P2$="@5V5O3L16 (RRRR DRRR RDRR DRRR)"
  1141. 11410 R2$="@5V5O3L16  RRRR DRRR RDRR DRRR   "
  1142. 11420 P3$="@5V2O6L16  ((D[D]D[D])4)2"
  1143. 11430 R3$="@5V2O6L16   (D[D]D[D])4"
  1144. 11440 P4$="@6V4O4L16 RRBR RBRR BRRR RRRR RRBR RBRR BRRB BRB@8O7B"
  1145. 11450 P5$="@6V5O6L8  RRRR RRRR RRRR RRC<C "
  1146. 11460 Q5$="@6V5O3L8  RRRR RRRR RRRR RRRG  "
  1147. 11470 P6$="@1V15O0L8 GRGRGRGR GRGRGRGR "
  1148. 11480 R6$="@1V15O0L8 GRGRGRGR G"
  1149. 11490 '
  1150. 11500 '
  1151. 11510 PLAY  A1$,D1$
  1152. 11520 PLAY  A2$,D2$
  1153. 11530 PLAY  A1$,D1$
  1154. 11540 PLAY  A2$,D2$
  1155. 11550 PLAY  A1$,D1$,E1$,E4$
  1156. 11560 PLAY  A2$,D2$,E2$,E4$
  1157. 11570  PLAY A1$,D1$,E1$,E4$
  1158. 11580  PLAY A2$,D2$,E3$,E4$
  1159. 11590  PLAY    ,  ,B1$,,,,,P2$,P3$,P4$
  1160. 11600  PLAY    ,  ,B1$,,,,,P2$,P3$,P4$,P5$
  1161. 11610 PLAY  ,,B1$,C2$ ,,,P1$,P2$,P3$,P4$
  1162. 11620 PLAY  ,,B2$,C2E$,,,R1$,R2$,R3$
  1163. 11630 PLAY  ,,B1$,C2$,C1$,,P1$,P2$,P3$,P4$
  1164. 11640 PLAY  ,,B1$,C2$,C1$,,Q1$,P2$,P3$,P4$
  1165. 11650  PLAY ,   ,B1$,C2$,C1$,   ,P1$,P2$,P3$,P4$
  1166. 11660  PLAY ,   ,B1$,C2$,C1$,   ,Q1$,P2$,P3$,P4$
  1167. 11670  PLAY ,   ,B1$,C3$,C1$,C4$,P3$,P4$
  1168. 11680  PLAY ,   ,B2$,C3$,C1$,C4$,R3$,P4$,Q5$
  1169. 11690 PLAY  A3$,D3$,B1$,A6$,D6$,C2$,P1$,P2$,P3$,P4$
  1170. 11700 PLAY  A4$,D4$,B1$,A6$,D6$,C2$,Q1$,P2$,P3$,P4$
  1171. 11710 PLAY  A3$,D3$,B1$,A6$,D6$,C2$,P1$,P2$,P3$,P4$
  1172. 11720 PLAY  A5$,D5$,B2$,A7$,D7$,C2$,R1$,R2$,R3$,Q5$
  1173. 11730  PLAY  ,C2$,B1$,A6$,D6$,C3$,P1$,P2$,P3$,P4$
  1174. 11740  PLAY  ,C2$,B1$,A6$,D6$,C3$,Q1$,P2$,P3$,P4$
  1175. 11750  PLAY  ,C2$,B1$,A6$,D6$,C3$,P1$,P2$,P3$,P4$
  1176. 11760  PLAY  ,   ,C3$,A7$,D7$,C6$,R1$,R2$,R3$
  1177. 11770 PLAY  ,,,A8$,D8$,,P1$,,,P4$
  1178. 11780 PLAY  ,,,A9$,D9$,,P1$,,,P4$,P5$
  1179. 11790 PLAY  ,,B1$,A8$,D8$,C5$,P1$,P2$,P3$,P4$
  1180. 11800 PLAY  ,,B2$,A9$,D9$,C5$,R1$,R2$,R3$,P4$
  1181. 11810  PLAY  ,,B1$,A8$,D8$,C3E$
  1182. 11820  PLAY  ,,B1$,A9$,D9$,C3E$
  1183. 11830  PLAY  ,,B1$,A8$,D8$,C3E$,P1$,P2$
  1184. 11840  PLAY  ,,B2$,A9$,D9$,C3E$,R1$,R2$,Q5$
  1185. 11850  PLAY  ,E1$,B1$,A8$,D8$,C3E$,P1$,P2$,P3$,P4$
  1186. 11860  PLAY  ,E2$,B1$,A9$,D9$,C3E$,Q1$,P2$,P3$,P4$
  1187. 11870  PLAY  ,E1$,B1$,A8$,D8$,C3E$,P1$,P2$,P3$,P4$
  1188. 11880  PLAY  ,E3$,B1$,A9$,D9$,C3E$,R1$,R2$,R3$,P4$,Q5$
  1189. 11890  PLAY  ,E1$,B1$,,E4$,C3E$,P6$,P2$,P3$,P4$
  1190. 11900  PLAY  ,E2$,B1$,,E4$,C3E$,P6$,P2$,P3$,P4$
  1191. 11910  PLAY  ,E1$,B1$,,E4$,C3E$,P6$,P2$,P3$,P4$
  1192. 11920  PLAY  ,E3$,B2$,,E4$,C3E$,R6$,R2$,R3$,,Q5$
  1193. 11930  PLAY  ,E1$,B1$,,E4$,C3E$,P6$,P2$
  1194. 11940  PLAY  ,E2$,B1$,,E4$,C3E$,P6$,P2$
  1195. 11950  PLAY  ,E1$,B1$,,E4$,C3E$,P6$,P2$,P3$
  1196. 11960  PLAY  ,E3$,B2$,,E4$,C3E$,R6$,R2$,R3$,,Q5$
  1197. 11970 PLAY  ,,B3$,E4$ ,,,P5$
  1198. 11980 PLAY  ,,B3$,C3$ ,,,Q1$,,P3$,P4$
  1199. 11990 PLAY  ,,B3$,C3$ ,,,P1$,,P3$,P4$
  1200. 12000 PLAY  ,,B3$,C3$ ,,,R1$,,R3$,P5$
  1201. 12010 PLAY  A1$,D1$,B3$,C3E$,,,P6$,,P3$
  1202. 12020 PLAY  A2$,D2$,B3$,C3E$,,,P6$,,P3$
  1203. 12030 PLAY  A1$,D1$,B3$,C3E$,,,P6$,,P3$
  1204. 12040 PLAY  A2$,D2$,B3$,C3E$,,,P6$,,P3$,P5$
  1205. 12050 PLAY  A1$,D1$,B3$,C3E$,B1$,   ,P6$,P2$,P3$,P4$
  1206. 12060 PLAY  A2$,D2$,B4$,C3E$,B1$,   ,P6$,P2$,P3$,P4$
  1207. 12070 PLAY  A1$,D1$,B3$,C3E$,B1$,E4$,P6$,P2$,P3$,P4$
  1208. 12080 PLAY  A2$,D2$,B3$,C3E$,B1$,E4$,P6$,P2$,P3$,P4$
  1209. 12090 PLAY     ,E1$,,C3$,B1$,E4$,P6$,P2$,P3$,P4$
  1210. 12100 PLAY     ,E2$,,C3$,B1$,E4$,P6$,P2$,P3$,P4$
  1211. 12110 PLAY     ,E1$,,C3$,B1$,E4$,P6$,P2$,P3$,P4$
  1212. 12120 PLAY     ,E3$,,C3$,B1$,E4$,P6$,P2$,P3$,P4$
  1213. 12130 PLAY  C1$,E1$,   ,C3$,B1$,E4$,P6$,P2$,P3$,P4$
  1214. 12140 PLAY  C1$,E2$,   ,C3$,B1$,E4$,P6$,P2$,P3$,P4$
  1215. 12150 PLAY  C1$,E1$,C5$,C3$,B1$,E4$,P6$,P2$,P3$,P4$
  1216. 12160 PLAY  C1$,E3$,C5$,C3$,B1$,E4$,P6$,P2$,P3$,P4$
  1217. 12170 PLAY  A8$,D8$,E1$,C3$,,E4$,P1$,P2$
  1218. 12180 PLAY  A9$,D9$,E2$,C3$,,E4$,Q1$,P2$
  1219. 12190 PLAY  A8$,D8$,E1$,C3$,,E4$,P6$,P2$,P3$,P4$
  1220. 12200 PLAY  A9$,D9$,E3$,C3$,,E4$,P6$,P2$,P3$,P4$
  1221. 12210 PLAY  A8$,D8$,E1$,,,,P1$,P2$
  1222. 12220 PLAY  A9$,D9$,E2$,,,,Q1$,P2$
  1223. 12230 PLAY  A8$,D8$,,,,,P1$,P2$
  1224. 12240 PLAY  A9$,D9$,,,,,Q1$,P2$
  1225. 12250 PLAY  A8$,D8$,A6$,D6$
  1226. 12260 PLAY  A7$,D7$,A5$,D5$
  1227. 12270 RETURN
  1228. 12280 '
  1229. 12290 '___________________________________________________________________________
  1230. 12300 '===FC7===
  1231. 12310 *S_18E
  1232. 12320 ' Spinning Digital Cherry  [ Edit ]   
  1233. 12330 VOICE COPY 17,A : VOICE 1,A  :  VOICE COPY 28,A : VOICE 2,A
  1234. 12340 '
  1235. 12350 A1L$="@1V5O4L8 D&D&DC &CC<B>C  D&D&DC &C&C D&D "
  1236. 12360 A1R$="@1V5O4L8<B&B&BA &AA&A A  B&B&BA &A&A&A&A "
  1237. 12370 A2L$="@1V5O4L8 E&E&E<A&A&A>C&C D&DC<B &B&BG&G"
  1238. 12380 A2R$="@1V5O4L8 C&C&C<F&F F A&A B&B&BG &G GE&E "
  1239. 12390 A3L$="@1V5O4L8 D&D&DC &CC<B>C  D&D G D &D DC<B"
  1240. 12400 A3R$="@1V5O4L8<B&B&BA &AA&A A  B&B>E&E <G&GAG "
  1241. 12410 A4L$="@1V5O4L8 C&C&C<B&B&B>C&C D&DC<B &B >E&E>C"
  1242. 12420 A4R$="@1V5O4L8<A&A&A G&G&G A&A B&BAG  &G >RA&A"
  1243. 12430 A5L$="@1V5O4L8 B A&AE &EEDC  D&DC<B&B G>DG"
  1244. 12440 A5R$="@1V5O4L8 G&G&GC &CC<BA B&B&BG&G EB>E"
  1245. 12450 A6L$="@1V5O4L8 E&ED&C  &C<BB&B >C&C<B>D &D E&E>C"
  1246. 12460 A6R$="@1V5O4L8 C&C&C<A &A GG&G  A&A G B &B>CA&A"
  1247. 12470 A7L$="@1V5O4L8 B A&AE &EEDC  D&DC<B&B G&G>G"
  1248. 12480 A7R$="@1V5O4L8 G&G&GC &CC<BA B&B&BG&G EB&B"
  1249. 12490 A8L$="@1V5O4L8 C&C&CC&CC G C <A&AB&B>C&CD&D"
  1250. 12500 A8R$="@1V5O4L8<A&A&AA&AA>E<A  F&FG&G A&AB&B"
  1251. 12510 '
  1252. 12520 F1L$="@30V3O4L16 %L1  CRRRCRRC8CCRC8CR<ARRRARRA8AARA8AR "
  1253. 12530 F1C$="@30V3O4L16 %C   ERRRERRE8EERE8ER CRRRCRRC8CCRC8CR "
  1254. 12540 F1R$="@30V3O4L16 %R1  GRRRGRRG8GGRG8GR ERRRERRE8EERE8ER "
  1255. 12550 F2L$="@30V3O4L16 %L1 <ERFR>C<REF C>C<AEF8>CR ERRRERRE8EERF8  ER"
  1256. 12560 F2C$="@30V3O4L16 %C  <GRAR>E<RGA E>E<RGA8>ER GRRRGRRG8GGRA8  GR"
  1257. 12570 F2R$="@30V3O4L16 %R1 <BR>CRGR<B>C<G>GR<B>C8GR BRRRBRRB8BBR>C8<BR"
  1258. 12580 F3L$="@30V3O4L16 %L1  CRRRCR<A>C8CCRC<G B8 ARFR>A<RRA8>A<AR>A8<AR"
  1259. 12590 F3C$="@30V3O4L16 %C   ERRRER C E8EERE<B>D8 CARR>C<RRC8>C<CR>C8<CR"
  1260. 12600 F3R$="@30V3O4L16 %R1  GRRRGR E G8GGRG D F8 ERCR>E<RRE8>E<ER>E8<ER"
  1261. 12610 F4L$="@30V3O4L16 %L1 <FR>FR ED8C<RBRA G8FR GRRR>D<RR B8 G>D<R E8ER"
  1262. 12620 F4C$="@30V3O4L16 %C  <AR>AR GF8E RDRC<B8AR BRBR G RR>D8<B G R G8GR"
  1263. 12630 F4R$="@30V3O4L16 %R1  CR>CR<BA8G RFRE D8CR DRRR<B>RR<G8>D<B>R<B8BR"
  1264. 12640 F5L$="@30V3O4L1  %L1 <A&A %C"
  1265. 12650 F5C$="@30V3O4L1  %C   C&C %C"
  1266. 12660 F5R$="@30V3O4L1  %R1  E&E %C"
  1267. 12670 '
  1268. 12680 B1$="@2V9O2L8   AARR RRER GGRR RR>D<R"
  1269. 12690 B2$="@2V9O2L8   FRRF RFAF GRRR ERBR "
  1270. 12700 B3$="@2V9O2L8   AARA RRER FRFR RRFR "
  1271. 12710 B4$="@2V9O2L8   DRRD RRDR EERE RBER "
  1272. 12720 B5$="@2V9O2L8   DRRD RRDR GRGG RBGR "
  1273. 12730 B6$="@2V9O2L8   DRRD RRDR GRRE RRCR "
  1274. 12740 B6E$="@2V9O2L8   DRRD RRDR >C<BRG RGA4"
  1275. 12750 B7$="@56V5O1L16  DRRDRRDR DFRDRRDR DRRDRRDR <ARRARRAR"
  1276. 12760 B7E$="@56V5O1L16 DRRDRRDR DFRDRRDR DRRDRRDR  DRRGRR>C<R"
  1277. 12770 B8$="@27V2O3L16  DDRDDRDD DFFDDRAD DDRDDRDD AARAARAA"
  1278. 12780 B9$="@2V5O2L16  A4 A&A8 A8 AG8 G8 G8  A4 A&A8 A8 AG8 G8 >C8"
  1279. 12790 '
  1280. 12800 C1$="@27V5O3L16 (AR<A>AR<A>A>E<) (GR<G>GR<G>G>D<)"
  1281. 12810 C2$="@27V5O3L16 (FR<F>FR<F>F>C<) (GR D GR D G>G<)"
  1282. 12820 C3$="@81V5O4L16 Q4 A<A>A<A>>A<A<A>A<A>>A<A<A>>A<<A>A<A>"
  1283. 12830 C3$=C3$+" F<F>F<F>>F<<FA>F <F>>F<F<A> >F<A>A<F>"
  1284. 12840 C4$="@81V5O4L16 Q4 D<D>D<D>>D<<DF>D <D>>D<D<D> >D<G>D<G>"
  1285. 12850 C4$=C4$+"GG<G>G >G<<GB>>G <<B>>G<<GB> G<<G>BD"
  1286. 12860 D1$="@17V5O2L16 (ARRR)3ARAR (GRRR)3GR>D<R"
  1287. 12870 D2$="@17V5O2L16 (FRRR)3FRFR (GRRR)2 GRRG RGGR"
  1288. 12880 D3$= "@81@V0O4L8  (A>E<A>F<)3 A>G<A>D< "
  1289. 12890 D3E$="@81@V0O4L8  (A>E<A>F<)3 A>E D G "
  1290. 12900 D4$="@30V0O2L16 Q4 (A>E<A>G<A>F<A>D<)3 A>E<A>G<A>D<A>A< Q8"
  1291. 12910 D4E$="@30V0O2L16 Q4 (A>E<A>G<A>F<A>D<)3 A>E<A>G<@53DDDD Q8"
  1292. 12920 D5$="@22V0O4L16 Q4 (A>E<A>G<A>F<A>D<)3 A>E<A>G<A>D<A>A< Q8"
  1293. 12930 D6$="@22V2O4L16 Q4 (RRRR ARRR)3 RRRR A8[[A16R16 Q8"
  1294. 12940 E1$="@16V2O4L8  Q4 ARRRA<E>AR ARRRA>E<AR   Q8"
  1295. 12950 E2$="@16V2O4L8  Q4>ERRRE<G>ER ARBR>CRDR    Q8"
  1296. 12960 E3$="@16V2O4L16 Q4 (AAA<A>A<A>AC AAAEAEAA )  Q8"
  1297. 12970 E4$="@16V2O4L16 Q4>E<E>E<E>EE<A>EE<E>E<E>EA<C>E<AAEABBEB>CCFCDGDB Q8"
  1298. 12980 E5$="@79V5O1L16 Q4 AAA<A>A<A>AC  AAAEAEAA FFF<F>F<F>F<B> FFFDFDFFQ8"
  1299. 12990 E6$="@79V5O1L16 Q4 DDD<D>D<D>D<G>DDDRDRDD GGG<G>G<G>G<G> GGGEGEGGQ8"
  1300. 13000 E7$="@23V2O2L16 Q2 (AE>EA<AF>FA<)3 AG>GA <AD>D<D>"
  1301. 13010 E7E$="@23V2O2L16 Q2  (AE>EA<AF>FA<)3 AE>ED D<G>G<D> Q8"
  1302. 13020 E8$="@77V4O2L16 Q2 (AC>>E<<AC>A<C>E<) CA>E<C >AE<CA EEAC >E<CAE  Q8"
  1303. 13030 E8E$="@77V4O3L16 Q2 (AC>>E<<AC>A<C>E<) CA>E<C >AE<CA EEAC >E<CAE Q8"
  1304. 13040 E9$="@23V6O1L16 Q5 ARAR>AR<AA ARAR>A<RAR ARAR>A<AARA<A>AR>ARER   Q8"
  1305. 13050 E0$="@80V1O1L16 Q2 DDD<D>D<D>D<G>DDDRDRDD GGG<G>G<G>G<G> GGGEGEGGQ8"
  1306. 13060 H1L$="@81V0O5L8 %L1Q2 DRDRDRDR AA RCRDDR Q8"
  1307. 13070 H1R$="@81V0O5L8 %R1Q2 FRFRFRFR>CC<RERFFR Q8"
  1308. 13080 H2L$="@81V0O5L8 %L1Q2 DRDRDRDR AA RAR>C<BR Q8 %C"
  1309. 13090 H2R$="@81V0O5L8 %R1Q2 FRFRFRFR>CC RCR E DR Q8 %C"
  1310. 13100 '
  1311. 13110 G1L$="@106V3O4L16 %L1[[F]F8]F &F2&F4  &F4    C4&C8<B8&B4"
  1312. 13120 G1R$="@106V3O4L16 %R1  DD8D   &D2[[(RRF8)]]  <A4&A8 G8&G4"
  1313. 13130 G2L$="@106V3O4L8  %L1<A&A&AB&B2     >C&C&C<B&B2  "
  1314. 13140 G2R$="@106V3O4L8  %R1<F&F&FG&G&GG&G  A&A&A G&G2  "
  1315. 13150 G3L$="@106V3O4L8  %L1<A&A&AB &B&B>C&C &CD&D&D C&C<B&B"
  1316. 13160 G3R$="@106V3O4L8  %R1<F&F&FG &G&G A&A &AB&B&B A&A G&G"
  1317. 13170 G4L$="@106V3O4L8  %L1<F1&F1"
  1318. 13180 G4R$="@106V3O4L8  %R1<D1&D1"
  1319. 13190 G5L$="@106V3O4L8  %L1<G1&G2&G4B4 %C"
  1320. 13200 G5R$="@106V3O4L8  %R1<E1&E2&E4G4 %C"
  1321. 13210 '
  1322. 13220 '
  1323. 13230 P1$="@9V15O0L16 GRRR RRRG RRGR RRGR GRGR RRRG RRGR RRRR"
  1324. 13240 S1$="@9V15O0L16 GRRR RRRG RRGR RRGR G"
  1325. 13250 P2$="@6V1O5L8   RCRCRCRC RCRCRCRC"
  1326. 13260 S2$="@6V1O5L8   RCRCRCRC "
  1327. 13270 P3$="@9V3O2L16 (GRGR>C<GRGR>C<GRGR>C<R)"
  1328. 13280 S3$="@9V3O2L16  GRGR>C<GRGR>C<GRGR>C<R G"
  1329. 13290 P4$="@9V2O6L16 ((BB]B[B))4"
  1330. 13300 S4$="@9V2O6L16 ((BB]B[B))2 B"
  1331. 13310 P5$="@1V15O0L8 GRGRGRGR GRGRGRGR"
  1332. 13320 Q5$="@1V15O0L8 GRGRGRGR GRL16 GRRG RRGR GRGR"
  1333. 13330 S5$="@1V15O0L8 GRGRGRGR G"
  1334. 13340 P6$="@9V2O6L16  (([B]B[B]B) [B]B[B]B [B]B[B32B32]B)"
  1335. 13350 S6$="@9V2O6L16   ([B]B[B]B) [B]B[B]B [B]B[B32B32]B B"
  1336. 13360 FP5$="@106V15O0L16 Q1 (GRRRGRRR) GRRR GRRG RRGR GRGR  Q8"
  1337. 13370 FP6$="@106V15O0L16 Q1 (GRRRGRRR)4   Q8"
  1338. 13380 BP1$="@9V5O2L16 (RRRR)4 RRCRCRCCRCCRCRCR"
  1339. 13390 BP2$="@5V3O3L16 (RRRR)4 CRRRCRRRCRCRCRCR"
  1340. 13400 BP3$="@9V5O2L16 (RRRR)4 CECRCRCCRCCRCR@5V3G8"
  1341. 13410 BP4$="@6V0O5L16 ((GGGG)] )3 GG]GG]G]G]G]G"
  1342. 13420 '
  1343. 13430 '
  1344. 13440 '
  1345. 13450 PLAY A1L$,A1R$,B1$,E1$
  1346. 13460 PLAY A2L$,A2R$,B2$,E2$
  1347. 13470 PLAY A3L$,A3R$,B1$,E1$,,,P1$,P2$,P3$
  1348. 13480 PLAY A4L$,A4R$,B2$,E2$,,,S1$,P2$,S3$
  1349. 13490 PLAY A5L$,A5R$,B1$,E3$,C1$,D1$,P1$,P2$,P3$,P4$,P5$
  1350. 13500 PLAY A6L$,A6R$,B2$,E4$,C2$,D2$,P1$,P2$,P3$,P4$,P5$
  1351. 13510 PLAY A7L$,A7R$,B1$,E3$,C1$,D1$,P1$,P2$,P3$,P4$,P5$
  1352. 13520 PLAY A8L$,A8R$,B2$,E4$,C2$,D2$,S1$,S2$,S3$,S4$,S5$
  1353. 13530 PLAY F1L$,F1C$,F1R$,B3$,C3$,E5$,P2$,P4$,P5$
  1354. 13540 PLAY F2L$,F2C$,F2R$,B4$,C4$,E6$,P2$,P4$,P5$
  1355. 13550 PLAY F3L$,F3C$,F3R$,B3$,C3$,E5$,P2$,P4$,P5$
  1356. 13560 PLAY F4L$,F4C$,F4R$,B5$,C4$,E6$,P2$,P4$,P5$,BP1$
  1357. 13570 PLAY F5L$,F5C$,F5R$,B3$,D3$ ,E5$,P1$,P2$,P3$,P4$,P5$
  1358. 13580 PLAY     ,    ,    ,B4$,D3E$,E6$,P1$,P2$,P3$,P4$,P5$
  1359. 13590 PLAY     ,    ,D4$ ,B3$,D3$ ,E5$,P1$,P2$,P3$,P4$,P5$
  1360. 13600 PLAY     ,    ,D4E$,B6$,D3E$,E6$,P1$,S2$,P3$,S4$,P5$,BP2$
  1361. 13610 '
  1362. 13620 PLAY FP5$,B7$,B8$
  1363. 13630 PLAY FP5$,B7$,B8$
  1364. 13640 PLAY FP5$,B7$,B8$,E7$ ,E3$,,,P1$,P3$,P5$
  1365. 13650 PLAY FP5$,B7$,B8$,E7E$,E3$,,,S1$,S3$,P5$,BP2$
  1366. 13660 PLAY B7$,B8$,G1L$,G1R$,E7$ ,D5$,P1$,P2$,P5$
  1367. 13670 PLAY B7$,B8$,G2L$,G2R$,E7E$,D5$,P1$,P2$,P5$
  1368. 13680 PLAY B7$,B8$,G1L$,G1R$,E7$ ,D5$,P1$,P2$,P5$
  1369. 13690 PLAY B7$,B8$,G3L$,G3R$,E7E$,D5$,P1$,P2$,P5$
  1370. 13700 PLAY ,B8$,G4L$,G4R$,E7$ ,D6$,P1$
  1371. 13710 PLAY ,B8$,G5L$,G5R$,E7E$,D6$,P1$
  1372. 13720 PLAY ,B8$,G4L$,G4R$,E7$ ,D6$,P1$
  1373. 13730 PLAY ,B8$,G5L$,G5R$,E7E$,D6$,P1$,BP3$,BP4$
  1374. 13740 PLAY B5$ ,E0$,E7$ ,E9$,H1L$,H1R$,P1$,P2$,P3$,P4$,P5$
  1375. 13750 PLAY B6$ ,E0$,E7E$,E9$,H2L$,H2R$,P1$,S2$,S3$,S4$,S5$,BP1$
  1376. 13760 PLAY B5$ ,E0$,E7$ ,E9$,H1L$,H1R$,P1$,P2$,P3$,P4$,P5$
  1377. 13770 PLAY B6$ ,E0$,E7E$,E9$,H2L$,H2R$,P1$,S2$,P3$,S4$,P5$,BP2$
  1378. 13780 PLAY B5$ ,D3$,E7$ ,E9$,H1L$,H1R$,P1$,P2$,P3$,P4$,P5$
  1379. 13790 PLAY B6$ ,D3$,E7E$,E9$,H2L$,H2R$,P1$,P2$,P3$,P4$,P5$
  1380. 13800 PLAY B5$ ,D3$,E7$ ,E9$,H1L$,H1R$,P1$,P2$,P3$,P4$,P5$
  1381. 13810 PLAY B6E$,D3$,E7E$,E9$,H2L$,H2R$,S1$,S2$,S3$,S4$,S5$
  1382. 13820 '
  1383. 13830 '
  1384. 13840 A1L$="@22V3O3L1 %L C&C    "
  1385. 13850 A1R$="@22V3O3L1 %R E&E    "
  1386. 13860 A2L$="@22V3O3L1 %L F#&F#  "
  1387. 13870 A2R$="@22V3O3L1 %R D&D    "
  1388. 13880 A3L$="@22V3O3L2 %L F#&F# GA  %C"
  1389. 13890 A3R$="@22V3O3L2 %R D&D   EF# %C"
  1390. 13900 A4L$="@22V3O3L16 Q1 EERRRREE Q8 %C"
  1391. 13910 A4R$="   V5O0L16 RRRRRR@92G@67E@91 "
  1392. 13920 C1$= "@96V0O4L16 Q1 (%L1A>A<AA%R1>>A<<AA>A<%L2AAAA%R2>>G<<GAA)%CQ8"
  1393. 13930 C1E$="@96V0O4L16 Q1  "
  1394. 13940 C2$= "@96V3O2L16 Q1  AARRARRARAARGRAR  AARRARRARA>D<RGRAR Q8"
  1395. 13950 C3L$= "@16V3O3L8 %L1 RRRRRRRR C&CG&G> F#&F#>C&C  %C"
  1396. 13960 C3R$= "@16V3O3L8 %R1 RRRRRRRR<G>F#&F#>C&C G&G>F# %C"
  1397. 13970 '
  1398. 13980 PLAY B9$
  1399. 13990 PLAY B9$
  1400. 14000 PLAY B9$,,,,,,P6$
  1401. 14010 PLAY B9$,,,,,,P6$
  1402. 14020 PLAY B9$,A1L$,A1R$,,,,P3$,P6$
  1403. 14030 PLAY B9$,A2L$,A2R$,,,,P3$,P6$
  1404. 14040 PLAY B9$,A1L$,A1R$,,,,P3$,P6$
  1405. 14050 PLAY B9$,A3L$,A3R$,,,,S3$,S6$,BP1$
  1406. 14060 PLAY B9$,A1L$,A1R$,C1$,,FP6$,P2$,P3$,P6$
  1407. 14070 PLAY B9$,A2L$,A2R$,C1$,,FP6$,P2$,P3$,P6$
  1408. 14080 PLAY B9$,A1L$,A1R$,C1$,,FP6$,P2$,P3$,P6$
  1409. 14090 PLAY B9$,A3L$,A3R$,C1$,,FP6$,P2$,P3$,P6$,BP4$
  1410. 14100 PLAY A1L$,A1R$,C1$,C2$
  1411. 14110 PLAY A2L$,A2R$,C1$,C2$
  1412. 14120 PLAY A1L$,A1R$,C1$,C2$
  1413. 14130 PLAY A3L$,A3R$,C1$,C2$,C3L$,C3R$,BP3$
  1414. 14140 PLAY B9$,A1L$,A1R$,C1$,C2$,FP6$,P5$,P2$,P3$,P4$,P6$
  1415. 14150 PLAY B9$,A2L$,A2R$,C1$,C2$,FP6$,P5$,P2$,P3$,P4$,P6$
  1416. 14160 PLAY B9$,A1L$,A1R$,C1$,C2$,FP6$,P5$,P2$,P3$,P4$,P6$
  1417. 14170 PLAY B9$,A3L$,A3R$,C1$,C2$,FP6$,P5$,P2$,P3$,P4$,P6$
  1418. 14180 PLAY A4L$,A4R$,,,,,"@9V15O0L16G","@9V2O4L16CCCR<CR>CC"
  1419. 14190 RETURN
  1420. 14200 '
  1421. 14210 '
  1422. 14220 *S_20
  1423. 14230 ' FREAKS
  1424. 14240 VOICE COPY 22,A : VOICE 1,A  :  VOICE COPY 108,A : VOICE 2,A
  1425. 14250 VOICE COPY 34,A : VOICE 3,A
  1426. 14260 '
  1427. 14270 A11$="@1V2O3L16%L1A&A8A&A8A8 E&E8E&E8E8 F&F8F&F8F8G&G8G&G8G8%CQ8"
  1428. 14280 A12$="@1V2O3L16%R1E&E8E&E8E8<B&B8B&B8B8>C&C8C&C8C8D&D8D&D8D8%CQ8"
  1429. 14290 A13$="@1V2O3L16%L1A&A8A&A8A8 E&E8E&E8E8 F&F8F&F8F8G&G8>C&C8<B8%CQ8"
  1430. 14300 A14$="@1V2O3L16%R1E&E8E&E8E8<B&B8B&B8B8>C&C8C&C8C8D&D8 G&G8 F8%CQ8"
  1431. 14310 A15$="@1V2O3L16%L1Q6 ARRR>C<RRARAAR>D<RGR AARR >C<RRARAAR>E<RGR Q8"
  1432. 14320 A16$="@1V2O3L16%R1Q6 ERRR G RREREER A RDR ERER  G RREREER B RDR Q8"
  1433. 14330 A17$="@1V2O3L16%L1Q6 ARRR>C<RRARAAR>D<RGR AARR >C<RRARAAR Q8 G8>C8"
  1434. 14340 A18$="@1V2O3L16%R1Q6 ERRR G RREREER A RDR ERER  G RREREER Q8 D8 G8 "
  1435. 14350 A21$="@1V2O3L16%L1Q6 FA>CRCRRC RCCRCRCR<GB>DRDRRD RDDRDRDR %C"
  1436. 14360 A22$="@1V2O3L16%R1Q6 DF AARRRA RFARARAR EG BRBBRB RBBRBBBR %C"
  1437. 14370 A23$="@1V2O3L16%L1Q6 FA>CRCRRC RCCRCRCR C %C"
  1438. 14380 A24$="@1V2O3L16%R1Q6 DF AARRRA RFARARAR A %C"
  1439. 14390 '
  1440. 14400 A31$="@2V2O3L8%L1 (E&E4)C4 (G&G4)D4  %C"
  1441. 14410 A32$="@2V2O3L8%C  (C&C4)RR (E&E4)<B4 %C"
  1442. 14420 A33$="@2V2O3L8%R1<(A&A4)RG>(C&C4)<G4 %C"
  1443. 14430 A34$="@2V2O3L8%L1 (E&E4)C4 (D&D4) E4  %C"
  1444. 14440 A35$="@2V2O3L8%C  (C&C4)RR<(B&B4)>C4 %C"
  1445. 14450 A36$="@2V2O3L8%R1<(A&A4)RG (G&G4) G4 %C"
  1446. 14460 A41$="@2V2O3L16%L1 Q4  ERRRERREREER CRDR RRERERREREE RGR FR"
  1447. 14470 A42$="@2V2O3L16%C  Q4 C4  CRRCRCCR<A8B8>RRC8CRRCRC8 RER DR"
  1448. 14480 A43$="@2V2O3L16%R1 Q4 <ARRAA8RA8A8R F8GE AAAEAREARAA>RCR<BB"
  1449. 14490 A44$="@2V2O3L16%L1 Q4  ERRRERREREER<ARBR>RRERERREREE<RAR>DR  %C"
  1450. 14500 A45$="@2V2O3L16%C  Q4  C4  CRRCRCCR<F8G8>RRC8CRRCRC8<RFR BR  %C"
  1451. 14510 A46$="@2V2O3L16%R1 Q4 <ARRAA8RA8A8R D8EE AAAEAREARAA RDR GB  %C"
  1452. 14520 A51$="@54V3O2L16%L1  (A&A8)AR>(C&C8)CR (D&D8)DR E8EE&EEE8 %C"
  1453. 14530 A52$="@54V3O2L16%R1  (E&E8)E8 (G&G8)GR (A&A8)A8 (B&B8)B8  %C"
  1454. 14540 A53$="@17V1O3L16 Q1 ARRR>ER<RGR>D<FR>CRDR< AARR>ER<RGR>D<FR>CRRR Q8"
  1455. 14550 A54$="@17V1O3L16 Q1 ARER>ER RAR E DR CRDR< ARRR>ER RAR E DR CRGR Q8"
  1456. 14560 A55$="@23V2O3L16%L1  (A&A8)AR>(C&C8)CR (D&D8)DR E8EE&EEE8 %C"
  1457. 14570 A56$="@23V2O3L16%R1  (E&E8)E8 (G&G8)GR (A&A8)A8 (B&B8)B8  %C"
  1458. 14580 '
  1459. 14590 A61$="@3V3O4L8 <A&A>E&E &E&EV3A&A&AC V3<G A16 B>C<B16 AG"
  1460. 14600 A62$="@3V3O4L8 <A&A&A>D&D&D V1A&AV3 <G&G&GE&E&EG&G"
  1461. 14610 A63$="@3V3O4L8 E[[[GG]]]E18[[[GG16]]]E[[A]]E D&D&D&D&D<GGA16B16"
  1462. 14620 A64$="@3V3O4L8 E&E<[[[[A]]]]> D&D C&CE&E E&EE&E&EC&C   "
  1463. 14630 A65$="@3V1O4L8 C&C&C <B&B         A>D&DF &FD&D&D<B&B>D "
  1464. 14640 A66$="@3V3O4L8 <A>[[E]E]<A>GF16E[F16[E16[D16]]]C<B>C<B16>CC16<B>CD"
  1465. 14650 A67$="@3V3O4L8 <A>C16G&G16 FEDCD     E&E D16&D C&C16 &C C &C "
  1466. 14660 A68$="@3V2O4L8 R R16E&E&E&E&E&E&E16<R G&G16 G &G&G16 B&B>D "
  1467. 14670 A69$="@3V3O4L16 Q8<ERDR ERAG RERR DRCR L8 D&D&DC&C&C<G&G      Q8"
  1468. 14680 A60$="@3V1O5L16 Q2<CR<B>R CRFE RCRR <BRAR> L8 <B&B&BA&A&AB&B  Q8"
  1469. 14690 '
  1470. 14700 AB1$="@17V3O2L8  %C A&A&AA&A2 G&G&G G&G&G E&E"
  1471. 14710 AB2$="@17V3O2L8  %C F&F&FF&F&FA&A G&G&GG&GG>C<B"
  1472. 14720 '
  1473. 14730 A71$="@17V3O3L16 %L1 RRRRE4   &E8B8 &B4>  C4 &C4   &C8<C8 F4"
  1474. 14740 A72$="@17V3O3L16 %R1 RRRRC8A4   &A8 &A4   A4 &A8B8 &B8 E8&E8G8"
  1475. 14750 A73$="@17V3O3L8  %L1 A2   &A4G4  A&A&A B&B&B&B&B %C"
  1476. 14760 A74$="@17V3O3L8  %R1 F&F4 E&E2  >C&C&C&C&C&C D&D %C"
  1477. 14770 A75$="@17V3O3L8  %L1>C4<G&G&G>C&C&C C&C&C<B&B&BG&G  %C"
  1478. 14780 A76$="@17V3O3L8  %R1 AB4>D&D&D&D<B  A&A&A G&G&GE&E  %C"
  1479. 14790 A81$="@22V5O4L8 %L1 >C&C&C<A&A2 >D&D&D<B&B2"
  1480. 14800 A82$="@22V5O4L8 %R1  A&A&A F&F2  B&B&B G&G2"
  1481. 14810 A83$="@22V5O4L8 %L1 >C&C&C<F&F2  G&G&G>C&C&C<B&B"
  1482. 14820 A84$="@22V5O4L8 %R1  A&A&A D&D2  E&E&E A&A&A G&G"
  1483. 14830 A85$="@22V5O4L8 %L1 >G4E4C4  C4 E&E&E D&D&D F&F"
  1484. 14840 A86$="@22V5O4L8 %R1 >EF4D4<B4>D C&C&C<B&B&B>D&D"
  1485. 14850 A87$="@22V5O4L8 %L1 (EEEE)  DRDC RC GF" 
  1486. 14860 A88$="@22V5O4L8 %R1 (CCCC) <BRBA RA>ED"
  1487. 14870 A91$="@22V4O4L16%L1 E4&E&E8E8&E E8&E4 G8&G8D8&DE8&E8G8&GD8 Q8"
  1488. 14880 A92$="@22V4O4L16%R1 C4D&D8&D8E&E8  D4&D8 E8&E8G&G8D8&D8E&E8 Q8"
  1489. 14890 A93$="@22V4O4L16%L1 <B8&B8>G8&GC8&C8<B&B8>G8 B4B&B8B8BB8>C8<B8 %C"
  1490. 14900 A94$="@22V4O4L16%R1 <G8>C4   <B&B8>G8&GC4    G4G&G8G8GG8 A8 G8 %C"
  1491. 14910 A95$="@15V3O4L16 E8<A8>D8<A>C8<A8B>C8<A8>D8<A8>C8<AB8>C<A8>C8<B8"
  1492. 14920 A96$="@15V3O4L16 E8<A8>D8<A>C8<A8B>C8<A8>D8<A8>C8<AB8>C<A8G8>D8"
  1493. 14930 A97$="@22V4O4L1 %R1 >C %C"
  1494. 14940 A98$="@22V4O4L1 %C   A %C"
  1495. 14950 A99$="@22V4O4L1 %L1  E %C"
  1496. 14960 '
  1497. 14970 B1$="@106V5O1L16 A4>C8<A8> C8<A4G4 G8G4 GA>C8<GA>C8<"
  1498. 14980 B2$="@106V5O1L16 A4>C8<A8> C8<A4G4 G8G4 RRGR >E<RGR"
  1499. 14990 B3$="@106V5O1L16 Q6 A8A8A&A8A8AA8G8G8 AEA8A&A8A8AA8>E8<G8"
  1500. 15000 B4$="@106V5O1L8  A&A&AG&G&G>C&C< ARAG&G&G>D&D<"
  1501. 15010 B5$="@106V5O1L8  F&F&FF&F&FA&A G&G&GG&GG>C<B"
  1502. 15020 B6$="@106V5O1L16  A4 A&A&AA RAD8 E8G8  G4G&G&GG RG>C8<B8>D8"
  1503. 15030 B7$="@106V5O1L16  F4 F&F&FF RFE8 F8A8  G4G&G&GG RGB8 >C8D8"
  1504. 15040 '
  1505. 15050 P1$="@1V10O0L16 GRRR RGRG RRGR RGRG  GRGR RGRG RRGR RRGR"
  1506. 15060 S1$="@1V10O0L16 GRRR RGRG RRGR RGRG  "
  1507. 15070 Q1$="@1V10O0L16 GRRR RGRG RRGR RGRG  GGGR RRGG RGGR GRGR"
  1508. 15080 R1$="@1V10O0L16 GRRR RGRG RRGR RGRG  GRRR RGRR GGRG RGRR"
  1509. 15090 P2$="@3V6 O2L16 RRRR CRRR RCRR CRRR  RRRR CRRR RCRR CRRR"
  1510. 15100 S2$="@3V6 O2L16 RRRR CRRR RCRR CRRR  "
  1511. 15110 R2$="@3V6 O2L16 RRRR CRRR RCRR CRRR  RRCR CRCC RCCR CRCR"
  1512. 15120 P2E$="@9V5 O2L16 RRBR CRRR RCRR CRBR  RRBR CRRR RCRB CRRR"
  1513. 15130 P3$="@9V2 O6L16 ((BB]B[B)4)"
  1514. 15140 S3$="@9V2 O6L16  (BB]B[B)4 B"
  1515. 15150 P4$="@6V2 O5L16 ((RR C R)4)"
  1516. 15160 S4$="@6V2 O5L16  (RR C R)4 "
  1517. 15170 BP1$="@1V7O0L16 GGGR>G<RGG RGGRGR>G<R  GGGR>G<RGG R>G<GR GR>G<R "
  1518. 15180 BP2$="@5V3O3L16 RRRRRRRR RRRRRRRR CRRRCRRRCRCRCRCR"
  1519. 15190 BP3$="@9V5O2L16 (RRRR)4 CECRCRCCRCCRCR@5V3G8"
  1520. 15200 '
  1521. 15210 '
  1522. 15220 PLAY    ,A11$,A12$
  1523. 15230 PLAY    ,A13$,A14$
  1524. 15240 PLAY B4$,A11$,A12$,,,,BP1$
  1525. 15250 PLAY B4$,A13$,A14$,,,,BP1$,BP3$
  1526. 15260 PLAY B1$,A11$,A12$,A31$,A32$,A33$,P1$,P2$,P3$,P4$
  1527. 15270 PLAY B1$,A13$,A14$,A31$,A32$,A33$,Q1$,P2$,P3$,P4$
  1528. 15280 PLAY B1$,A11$,A12$,A31$,A32$,A33$,P1$,P2$,P3$,P4$
  1529. 15290 PLAY B2$,A13$,A14$,A34$,A35$,A36$,R1$,R2$,P3$,P4$
  1530. 15300 PLAY B3$,A15$,A16$,A41$,A42$,A43$,P1$,P2$,P3$,P4$
  1531. 15310 PLAY B3$,A15$,A16$,A44$,A45$,A46$,Q1$,P2$,S3$,S4$
  1532. 15320 PLAY B3$,A15$,A16$,A41$,A42$,A43$,P1$,P2$,P3$,P4$
  1533. 15330 PLAY B3$,A17$,A18$,A44$,A45$,A46$,R1$,R2$,P3$,P4$
  1534. 15340 '
  1535. 15350 PLAY B1$,A15$,A16$,A51$,A52$,A61$,P1$,P2$,P3$,P4$
  1536. 15360 PLAY B1$,A15$,A16$,A51$,A52$,A62$,Q1$,P2$,P3$,P4$
  1537. 15370 PLAY B1$,A15$,A16$,A51$,A52$,A61$,P1$,P2$,P3$,P4$
  1538. 15380 PLAY B2$,A17$,A18$,A51$,A52$,A63$,S1$,P2$,P3$,P4$
  1539. 15390 PLAY B5$,A21$,A22$,A51$,A64$,A65$,P1$,P2$,P3$,P4$
  1540. 15400 PLAY B5$,A21$,A22$,A51$,A66$,    ,Q1$,P2$,P3$,P4$
  1541. 15410 PLAY B5$,A21$,A22$,A51$,A67$,A68$,P1$,P2$,P3$,P4$
  1542. 15420 PLAY B5$,A21$,A22$,A51$,A69$,A60$,R1$,R2$,S3$,S4$
  1543. 15430 '
  1544. 15440 PLAY B3$,A15$,A16$,A53$,,,P1$,P2$,P3$,P4$
  1545. 15450 PLAY B3$,A15$,A16$,A54$,,,Q1$,P2$,P3$,P4$
  1546. 15460 PLAY B3$,A15$,A16$,A53$,,,P1$,P2$,P3$,P4$
  1547. 15470 PLAY B3$,A17$,A18$,A54$,,,S1$,P2$,P3$,P4$,BP3$
  1548. 15480 PLAY AB1$,A71$,A72$,,,,P3$,P4$
  1549. 15490 PLAY AB2$,A73$,A74$,,,,P3$,P4$
  1550. 15500 PLAY AB1$,A71$,A72$,,,,P3$,P4$
  1551. 15510 PLAY AB2$,A75$,A76$,,,,P3$,P4$
  1552. 15520 PLAY B6$,A81$,A82$,AB1$,A71$,A72$,P3$,P4$
  1553. 15530 PLAY B7$,A83$,A84$,AB2$,A73$,A74$,P3$,P4$
  1554. 15540 PLAY B6$,A85$,A86$,AB1$,A71$,A72$,P3$,P4$,BP1$
  1555. 15550 PLAY B7$,A87$,A88$,AB2$,A75$,A76$,P3$,P4$,BP1$
  1556. 15560 PLAY B6$,A15$,A16$,A55$,A56$,A61$,P1$,P2$,P3$,P4$
  1557. 15570 PLAY B7$,A15$,A16$,A55$,A56$,A62$,Q1$,P2$,P3$,P4$
  1558. 15580 PLAY B6$,A15$,A16$,A55$,A56$,A61$,P1$,P2$,P3$,P4$
  1559. 15590 PLAY B7$,A17$,A18$,A55$,A56$,A63$,S1$,P2$,P3$,P4$
  1560. 15600 PLAY B6$,A21$,A22$,A55$,A64$,A65$,P1$,P2$,P3$,P4$
  1561. 15610 PLAY B7$,A21$,A22$,A55$,A66$,    ,Q1$,P2$,P3$,P4$
  1562. 15620 PLAY B6$,A21$,A22$,A55$,A67$,A68$,P1$,P2$,P3$,P4$
  1563. 15630 PLAY B7$,A21$,A22$,A55$,A69$,A60$,R1$,R2$,P3$,P4$
  1564. 15640 PLAY AB1$,A21$,A22$,A91$,A92$,,P1$,P2E$
  1565. 15650 PLAY AB2$,A21$,A22$,A93$,A94$,,Q1$,P2E$
  1566. 15660 PLAY AB1$,A21$,A22$,A91$,A92$,,P1$,P2E$,P3$
  1567. 15670 PLAY AB2$,A21$,A22$,A93$,A94$,,R1$,P2E$,P3$
  1568. 15680 PLAY AB1$,A95$,A21$,A22$,A91$,A92$,P1$,P2$,P2E$,P3$,P4$
  1569. 15690 PLAY AB2$,A96$,A21$,A22$,A93$,A94$,Q1$,P2$,P2E$,P3$,P4$
  1570. 15700 PLAY AB1$,A95$,A21$,A22$,A91$,A92$,P1$,P2$,P2E$,P3$,P4$
  1571. 15710 PLAY AB2$,A96$,A21$,A22$,A93$,A94$,R1$,R2$,P2E$,P3$,P4$
  1572. 15720 PLAY ,A23$,A24$,A97$,A98$,A99$
  1573. 15730 RETURN
  1574. 15740 '
  1575. 15750 '
  1576. 15760 *S_22
  1577. 15770 ' Picaresque  [ PSG MIX ] 
  1578. 15780 VOICE COPY 23,A : VOICE 1,A  :  VOICE COPY 17,A : VOICE 2,A
  1579. 15790 '
  1580. 15800 A1$= "@1V7O3L8%L1  C4 &C&C16C&C16<A#&A#>D<D#4>D#&D#16D#  D#16&D#D#4"
  1581. 15810 D1$= "@1V7O3L8%R1 <C4> C&C16&CC16&CC&C    D#4&D#&D#16D#&D#16D&D#G"
  1582. 15820 A2$= "@1V7O3L16%L1 F&F8&F F&F8&F&F8 L8<A#&A#>D&DD&DF16&F&F16D&DD"
  1583. 15830 D2$= "@1V7O3L16%R1 CF8&F&F&F8  C&C8 L8<G > C&CD#&D#C&C16D#&D#16&D#C4"
  1584. 15840 A3$= "@1V7O3L8%L1 F&F&F&F&F <A#&A#>D&DD&DF16&F&F16D&DD"
  1585. 15850 D3$= "@1V7O3L8%R1<F&F&F>C&C& C C&CD#&D#C&C16D#&D#16&D#C&C"
  1586. 15860 A3E$="@1V7O3L8%L1 C&C16 C16&C&C&C2&C1"
  1587. 15870 D3E$="@1V7O3L8%R1<G&G16 G16&G&G&G2&G1 "
  1588. 15880 A4$= "@1V7O3L8%L1 A#2 A#&A#16G#&G#16G D#2 A#&A#16G#&G#16G %C"
  1589. 15890 D4$= "@1V7O3L8%R1 G2  G &G 16F &F 16D#C2  G &G 16F &F 16D#%C"
  1590. 15900 A5$= "@1V7O3L8%L1 D#2&D#&D# F&F D&D4   D&D  &D   D# D"
  1591. 15910 D5$= "@1V7O3L8%R1 C 2&C &C  D&D<A#&A#4 A#&A# A# >C <A#"
  1592. 15920 A6$=  "@1V7O3L8%L1 D#2&D#&D# F&F G&G&G    F F2"
  1593. 15930 D6$= "@1V7O3L8%R1 C 2&C &C  D&D D#&D#&D# D D2"
  1594. 15940 A7$= "@1V7O3L8%L1 CD#D#C16D#D#16C<A#>C D#D#C<A#16>CC<C16>CC16A#16 "
  1595. 15950 D7$= "@1V7O3L8%R1 RCR<G#16>CC 16R<GG#> C C&C<G 16A#R D#16A#A#"
  1596. 15960 A8$= "@1V7O3L8%L1 A#&A#G#&G#16G&G16C&CC &CD&DD#16&D#&D#16D#&D#<A#"
  1597. 15970 D8$= "@1V7O3L8%R1 G C&CC16&CG16&GF&F    D#&D#D#&D#16F&F16&FD&D"
  1598. 15980 A8E$="@1V7O3L8%L1 A#&A#G#&G#16G&G16C&CC &C D&DD16&DD#16&D#C&C"
  1599. 15990 D8E$="@1V7O3L8%R1 G C&CC16&CG16&GF&F     D#&D#D#&D#16D#&D#16D&DD"
  1600. 16000 A9$= "@1V7O3L8%L1 G&G&GD#&D#&D#CD#&D#  A#&A#A#G#4G4"
  1601. 16010 D9$= "@1V7O3L8%R1 D#&D#&D#C&C&C<G#>C&C G &G G F 4D#"
  1602. 16020 A0$= "@1V7O3L8%L1 F&F4 D#2&D#  D&D4   D#&D#4 F4"
  1603. 16030 D0$= "@1V7O3L8%R1 D&D4 C2 &C <A#&A#4> C&C4   D4"
  1604. 16040 A0E$="@1V7O3L8%L1 F&F4 E2&E&E1"
  1605. 16050 D0E$="@1V7O3L8%R1 D&D4 C2&C&C1"
  1606. 16060 '
  1607. 16070 C1$= "@103V6O3L16Q1 CRGRCRGCRCGRCRGR D#RA#RD#RA#D#RD#A#RD#RA#R Q8"
  1608. 16080 C2$= "@103V6O3L16Q1 FR>C<RFR>C<FRF>C<RFR>C<R "
  1609. 16090 C2E$=C2$+        " GGRR>D<RRGR>D<GR>D#<RDR Q8"
  1610. 16100 C2$ =C2$+         " GR>D<RGR>D<GRG>D RD#RDR  Q8"
  1611. 16110 C3$ ="@103V2O4L16Q1 ((CD#G)CD#) ((D#GA#)D#G) "
  1612. 16120 C4$ ="@103V2O4L16Q1 ((FC>C<)FC) (GD>D<)CD (GD>D<)>D#D Q8"
  1613. 16130 C4S$="@103V2O4L16Q1 ((FC>C<)FC) G                    Q8"
  1614. 16140 C4E$="@103V2O4L16Q1 ((FC>C<)FC) A#A#>A#<A#<A#>>>A#<A#<A#"
  1615. 16150 C4E$=C4E$+                     ">>A#GD#DC<A#G>D Q8"
  1616. 16160 C5$ ="@22V5O5L16 Q3 (<CCC>RC<C>R<C>RR<C>RCR<C>C) Q8"
  1617. 16170 C5E$="@22V5O5L16 Q3 <(<FFRFF>F<F<F>>)<<(G#G#<G#>G#G#<G#>A#A#) Q8"
  1618. 16180 C6$= "@96V2O4L16Q3 (>C<CC>C >C<<CC<A#> >C<CCC >A#<<A#>CC ) Q8"
  1619. 16190 C7$= "@85V1O4L16%L1(CR>CR<)<A#R>A#RCC>CR<%R1(D#R>D#R<)CR>CR<D#D#>D#R"
  1620. 16200 C8$= "@85V1O4L16%L1(FR>FR<)D#R>D#R<FF>FR<%R1(GR>GR<)FR>FR DR>DR< %C"
  1621. 16210 E1$= "@12V2O4L16 CRRCRC<A#A# RA#(<A#>A#)A#R>CR<C>CRCDDRDRD(<D>D)Q8"
  1622. 16220 E2$= "@12V2O4L16 D#D#RD#RD#DRRDDRCRDR D#D#RD#RD#FRRFFRD#RDQ8"
  1623. 16230 E3L$="@12V3O4L16 %L2(<A#>RRA#RRG#RG#G#RG#RGGR )%C"
  1624. 16240 E3R$="@12V3O4L16 %R2( G  RRGRRFRFFRFRD#D#R    )%C"
  1625. 16250 E4L$="@12V3O4L16 %L2 GGGRGRGGRGGRGRGR       RRFRFRD#D#RD#D#RFRFR  %C"
  1626. 16260 E4R$="@12V3O4L16 %R2 D#D#D#RD#R(D#D#R)(D#R) DRDRDRC C RC C RDRDR  %C"
  1627. 16270 E5L$="@12V3O4L16 %L2 GGRRGRRGRGGRGRGR <G>RGRGRGGRGGRGRFR  %C"
  1628. 16280 E5R$="@12V3O4L16 %R2 EERRERREREERERER <E>EEREREEREERERDR  %C"
  1629. 16290 '
  1630. 16300 F1$= "@85V5O4L16 <C>RCRCRCCRC<A#>RCRDR D#R<A#R>D#R<A#>D#RD#DRD#RGR "
  1631. 16310 F1E$="@85V5O4L16 <C>RCRCRCCRC<A#>RCRDR D#RGRD#RGD#RD#GRG#RGR "
  1632. 16320 F2$= "@85V5O4L16 FFRRFRRCRR<A#R>CRDRD#RDCRRFRD#RDRCRDR"
  1633. 16330 F3$= "@85V3O3L16 CRGRCRGCRCGRCRGR D#RA#RD#RA#D#RD#A#RD#RA#R Q8"
  1634. 16340 F4$= "@85V3O3L16 FR>C<RFR>C<FRF>C<RFR>C<R "
  1635. 16350 F4E$=F4$+        " GGRR>D<RRGR>D<GR>D#<RDR Q8"
  1636. 16360 F4$ =F4$+         " GR>D<RGR>D<GRG>D RD#RDR  Q8"
  1637. 16370 F5$ ="@85V1O4L16 ((CD#G)CD#) ((D#GA#)D#G) "
  1638. 16380 F6$ ="@85V1O4L16 ((FC>C<)FC) (GD>D<)CD (GD>D<)>D#D Q8"
  1639. 16390 F6S$="@85V1O4L16 ((FC>C<)FC)  G  Q8"
  1640. 16400 F6E$="@85V1O4L16 ((FC>C<)FC) A#A#>A#<A#<A#>>>A#<A#<A#"
  1641. 16410 F6E$=F6E$+                     ">>A#GD#DC<A#G>D Q8"
  1642. 16420 F7$= "@85V2O5L16 CRRCRC<A#A# RA#(<A#>A#)A#R>CR<C>CRCDDRDRD(<D>D)Q8"
  1643. 16430 F8$= "@85V2O5L16 D#D#RD#RD#DRRDDRCRDR D#D#RD#RD#FRRFFRD#RDQ8"
  1644. 16440 F9L$="@85V2O5L16 %L2(<A#>RRA#RRG#RG#G#RG#RGGR) %C"
  1645. 16450 F9R$="@85V2O5L16 %R2(G  RRGRRFRFFRFRD#D#R )    %C"
  1646. 16460 F0L$="@85V2O5L16 %L2 GGGRGRGGRGGRGRGR       RRFRFRD#D#RD#D#RFRFR  %C"
  1647. 16470 F0R$="@85V2O5L16 %R2 D#D#D#RD#R(D#D#R)(D#R) DRDRDRC C RC C RDRDR  %C"
  1648. 16480 FEL$="@85V2O5L16 %L2 GGRRGRRGRGGRGRGR G1  %C"
  1649. 16490 FER$="@85V2O5L16 %R2 EERRERREREERERER E1  %C"
  1650. 16500 FBL$="@85V3O5L8 %L3 RRRRRRCR  G&GC&C<D#&D#<G&G  %C"
  1651. 16510 FBR$="@85V3O5L8 %R3 RRRRRRRD# RD#&D#<G&GC&C<D#  %C"
  1652. 16520 '
  1653. 16530 G1L$="@62V4O2L8 A#1&A#2 A2"
  1654. 16540 G1R$="@62V4O2L8 G1 &G2  F2"
  1655. 16550 G2L$="@62V4O2L8 G1 &G2 A2"
  1656. 16560 G2R$="@62V4O2L8 E1 &E2 F2"
  1657. 16570 G3L$="@62V4O2L8>D#1&D#2  G4  F4"
  1658. 16580 G3R$="@62V4O2L8 G1  &G2 >D#4 D4"
  1659. 16590 G4L$="@62V4O2L8>C1 &C1"
  1660. 16600 G4R$="@62V4O2L8>D#1&D#1"
  1661. 16610 '
  1662. 16620 B1$="@28V6O2L16 >CRRCRRCR CCRCRR<G#R A#RRA#RRA#R A#RRA#RA#ER Q8"
  1663. 16630 B2$="@28V6O2L16  FRRFRRFR D#FRFRRA#R G#RRG#RRG#R A#RRA#RRA#R Q8"
  1664. 16640 B3$="@28V6O2L16  G#RRG#RRG#RG#RRG#RRG#R A#RRA#RRA#RA#RRA#RRA#RQ8"
  1665. 16650 B4$="@28V6O2L16  >CC&C8CRRCRCC8C8C8 <G#4 G#&G#8G#RG#G#8G#8G#8 Q8"
  1666. 16660 B5$="@28V6O2L16  FF&F8FRFFRFF8F8G#8 G4 G&G8GRGG8G8G8 Q8"
  1667. 16670 B6$="@28V6O2L16  G#G#&G#8>D#RR<G#8>D#<G#8>D#R<G#8 "
  1668. 16680 B6$=B6$+          "  A#4 A#&A#&A# >FRFF8D#8D8 Q8"
  1669. 16690 B7$="@28V6O2L16 >C8C8C&C&CC&CCC8C8<G8# A#4A#&A#8A#8A#A#8A#8A#8"
  1670. 16700 B7E$="@28V6O2L16 >C8C8C&C&CC&CCC8C8 C8 <A#>CC8C8CC8CC8<G#8A#8 "
  1671. 16710 B8$= "@28V6O2L8 (C>C<C>C<C>C16C16<C>C16<A#16)"
  1672. 16720 B8E$="@28V6O2L8 (C>C<)C>C16C16<C>C16<A#16 (C>C<)C16>CC16<C>D#"
  1673. 16730 B9$= "@28V6O2L8 (D#>D#<)D#>D#16<A#16D#>D#<(D#>D#<)D>D16<G16D>D<"
  1674. 16740 B0$= "@28V6O3L16(CRRC<GRA#RRA#FRGRA#R>)"
  1675. 16750 SB1$="@105V4O0L16   A#8>C8&C4&C2    <G1"
  1676. 16760 SB2$="@105V4O0L16   A#8>C8&C4&C2 Q6 <G4G8G4G8>D#8<A#8 Q8"
  1677. 16770 SB3$="@105V4O0L16Q6>C4C&C8CRCC8<A#8>D#8    CC&C8C&C8CRCC8<A#8>D#8 "
  1678. 16780 SB4$="@105V4O0L16Q6>C4C&C8C<G>CC8<A#8>D#8  CC&C8C&C8CRCC8 G8<A#8 "
  1679. 16790 SB5$="@105V4O0L16Q6>C4C&C8CRCC8<A#8>C8 @1V0O3 (GGGG])GG]GG]G]G]G]GQ8"
  1680. 16800 SC1$="@22V7O4L16    (Q1RRRRRRRR CRCR @92O1Q2CC> @22O4CR )         Q8"
  1681. 16810 SC2$="@22V7O5L16 Q3 (%R5GC%L5FC%R5D#C%L5DC %R5D#C%L5FC%R5D#C%L5DC)Q8"
  1682. 16820 SC3$="@108V2O4L16 Q1 (CC<C>CC<C>C<C><A#A#<A#>A#>D#<D#><A#<A#>>) Q8"
  1683. 16830 '
  1684. 16840 P1$= "@1V15O0L8 GRGRGRGR GRGRGRGG"
  1685. 16850 S1$= "@1V15O0L8 GRGRGRGR G"
  1686. 16860 P2$= "@5V2O3L16 RRRRCRR[C] RRRRCRRR RRRRCRR[C RC]]RRCRRR"
  1687. 16870 Q2$= "@5V2O3L16 RRRRCRRR   RRRRCRRR RCR[C]RRCR RRCR[C]CCR"
  1688. 16880 S2$= "@5V2O3L16 RRRRCRR[C] RRRRCRRR "
  1689. 16890 P3$= "@9V2O2L8  RCRCRCRC RCRCRCRC"
  1690. 16900 S3$= "@9V2O2L8  RCRCRCRC "
  1691. 16910 P4$= "@9V3O6L16 ([B]B[B]B [B]B[C]B)3 [B]B[B]B [B]B32B32[C]B"
  1692. 16920 Q4$= "@9V3O6L16 ([B]B[B]B [B]B[C]B)3 <C>B<B>B [B]B32B32[C]B "
  1693. 16930 S4$= "@9V3O6L16 ([B]B[B]B [B]B[C]B) B"
  1694. 16940 P6$= "@1V15O0L16 GRRGRRRG RRGRRRRR  GRRGRRRG RRGRRRGR"
  1695. 16950 S6$= "@1V15O0L16 GRRGRRRG RRGRRRRR  G"
  1696. 16960 P6E$="@1V15O0L16 GRRRRRRR RRRRRRRR  RRRRRRRR RRRRRRCR "
  1697. 16970 P7$= "@9V7O2L16  RRRRCRRR RRRRCRRR  RRRRCRRC RRRRCRRR"
  1698. 16980 S7$= "@9V7O2L16  RRRRCRRR RRRRCRRR  "
  1699. 16990 P8$= "@9V6O2L16  RRGRRRGR RGRRRRGG  RRGRRRGR RGRGRRRR"
  1700. 17000 S8$= "@9V6O2L16  RRGRRRGR RGRRRRGG  "
  1701. 17010 FP1$="@105V15O0L16Q1 (CRRR CRRR)3 CRRR CRCR Q8"
  1702. 17020 FP2$="@105V15O0L16Q1 (CRRR CRRR)3 CRRR CRRR Q8"
  1703. 17030 FP3$="@105V15O0L16Q1  CRRRRRRR RRRRRRRR RRRRRRRR RRRRRRCR Q8"
  1704. 17040 EP1$="@9V5O5L16%R5RRCRRCRC<CCRC%L5<C>R%R5CR>RRCRBCRC<CCRC<%R5C>RCR>"
  1705. 17050 EP2$="@9V3O6L16 (%L9BBBR%R9BR%L9B%R9BR%CC%L9B%R9B R%L9BR%R9B)"
  1706. 17060 BP1$="@6V0O5L16 (CCCC CCCC]) (CCCC]) CC]CC C]C]C]C"
  1707. 17070 '
  1708. 17080 '
  1709. 17090 PLAY SB1$,SC1$,    ,,,FP3$,P4$,P7$,P8$
  1710. 17100 PLAY SB1$,SC1$,    ,,,FP3$,Q4$,P7$,P8$
  1711. 17110 PLAY SB2$,SC1$,SC2$,,,FP2$,P4$,P7$,P8$,P3$,P2$
  1712. 17120 PLAY SB2$,SC1$,SC2$,,,FP2$,Q4$,P7$,P8$,P3$,Q2$
  1713. 17130 PLAY SB3$,SC1$,SC2$,SC3$,,FP1$,P4$,P7$,P8$,P3$,P2$
  1714. 17140 PLAY SB4$,SC1$,SC2$,SC3$,,FP1$,Q4$,P7$,P8$,P3$,P2$
  1715. 17150 PLAY SB3$,SC1$,SC2$,SC3$,,FP1$,P4$,P7$,P8$,P3$,P2$
  1716. 17160 PLAY SB5$,SC1$,SC2$,SC3$,,FP2$,S4$,S7$,S8$,S3$,S2$,BP1$
  1717. 17170 '
  1718. 17180 PLAY "T141" 
  1719. 17190 PLAY A1$,D1$,B1$,C1$,C3$ ,,,P1$,P2$,P3$,P4$
  1720. 17200 PLAY A2$,D2$,B2$,C2$,C4$ ,,,P1$,P2$,P3$,Q4$
  1721. 17210 PLAY A1$,D1$,B1$,C1$,C3$ ,,,P1$,P2$,P3$,P4$
  1722. 17220 PLAY A3$,D3$,B2$,C3$,C4E$,,,P1$,Q2$,P3$,Q4$
  1723. 17230 PLAY A4$,D4$,B1$,C1$ ,C3$ ,C5$,,P1$,P2$,P3$,P4$
  1724. 17240 PLAY A5$,D5$,B3$,C2$ ,C4$ ,C5$,,P1$,P2$,P3$,Q4$
  1725. 17250 PLAY A4$,D4$,B1$,C1$ ,C3$ ,C5$,,P1$,P2$,P3$,P4$
  1726. 17260 PLAY A6$,D6$,B3$,C2E$,C4S$,C5$,,S1$,S2$,S3$,S4$
  1727. 17270 PLAY A7$ ,D7$ ,B4$,E1$,C5$,,,P1$,P2$,P3$,P4$
  1728. 17280 PLAY A8$ ,D8$ ,B5$,E2$,C5$,,,P1$,P2$,P3$,Q4$
  1729. 17290 PLAY A7$ ,D7$ ,B4$,E1$,C5$,,,P1$,P2$,P3$,P4$
  1730. 17300 PLAY A8E$,D8E$,B5$,E2$,C5$,,,P1$,Q2$,P3$,Q4$
  1731. 17310 PLAY A9$ ,D9$ ,B6$ ,E3L$,E3R$,C5$,P1$,P2$,P3$,P4$
  1732. 17320 PLAY A0$ ,D0$ ,B7$ ,E4L$,E4R$,C5$,P1$,P2$,P3$,Q4$
  1733. 17330 PLAY A9$ ,D9$ ,B6$ ,E3L$,E3R$,C5$,P1$,P2$,P3$,P4$
  1734. 17340 PLAY A0E$,D0E$,B7E$,E5L$,E5R$,C5$,P1$,Q2$,P3$,Q4$
  1735. 17350 '
  1736. 17360 PLAY B8$ ,,,,,FP1$,P4$
  1737. 17370 PLAY B8$ ,,,,,FP1$,Q4$
  1738. 17380 PLAY B8$ ,,,,,FP1$,P4$
  1739. 17390 PLAY B8E$,,,,,FP1$,Q4$
  1740. 17400 PLAY B8$ ,G1L$,G1R$,,,FP1$,P4$
  1741. 17410 PLAY B8E$,G2L$,G2R$,,,FP1$,Q4$
  1742. 17420 PLAY B9$ ,G3L$,G3R$,,,FP1$,P4$
  1743. 17430 PLAY B8E$,G4L$,G4R$,,,FP1$,Q4$,BP1$
  1744. 17440 PLAY B8$ ,C5$,   ,G1L$,G1R$,FP1$,P4$,EP1$
  1745. 17450 PLAY B8E$,C5$,   ,G2L$,G2R$,FP1$,Q4$,EP1$
  1746. 17460 PLAY B9$ ,C5$,C6$,G3L$,G3R$,FP1$,P4$,EP1$
  1747. 17470 PLAY B8E$,C5$,C6$,G4L$,G4R$,FP1$,Q4$,EP1$
  1748. 17480 PLAY C5$,C6$,    ,    ,,FP3$,S4$
  1749. 17490 PLAY C5$,C6$,    ,    ,,FP3$,   ,EP2$
  1750. 17500 PLAY C5$,C6$,    ,    ,,FP3$,   ,EP2$,P6$,P7$,P8$
  1751. 17510 PLAY C5$,C6$,FBL$,FBR$,,FP3$,   ,EP2$,S6$,S7$,S8$
  1752. 17520 '
  1753. 17530 PLAY A1$,D1$,B1$,C7$,C6$,F1$ ,P1$,P7$,P3$,P4$
  1754. 17540 PLAY A2$,D2$,B2$,C8$,C6$,F2$ ,P1$,P7$,P3$,P4$
  1755. 17550 PLAY A1$,D1$,B1$,C7$,C6$,F1E$,P1$,P7$,P3$,P4$
  1756. 17560 PLAY A3$,D3$,B2$,C8$,C6$,F2$ ,P1$,P7$,P3$,P4$
  1757. 17570 PLAY A4$,D4$,B1$,F3$ ,F5$ ,C5$,,P1$,P7$,P8$,P4$
  1758. 17580 PLAY A5$,D5$,B3$,F4$ ,F6$ ,C5$,,P1$,P7$,P8$,Q4$
  1759. 17590 PLAY A4$,D4$,B1$,F3$ ,F5$ ,C5$,,P1$,P7$,P8$,P4$
  1760. 17600 PLAY A6$,D6$,B3$,F4E$,F6S$,C5$,,S1$,S7$,S8$,S4$
  1761. 17610 PLAY A7$ ,D7$ ,B4$,F7$,F3$,F5$ ,P1$,P4$,EP2$
  1762. 17620 PLAY A8$ ,D8$ ,B5$,F8$,F4$,F6$ ,P1$,Q4$,EP2$
  1763. 17630 PLAY A7$ ,D7$ ,B4$,F7$,F3$,F5$ ,P1$,P4$,EP2$
  1764. 17640 PLAY A8E$,D8E$,B5$,F8$,F4$,F6E$,P1$,Q4$,EP2$
  1765. 17650 PLAY A9$ ,D9$ ,B6$ ,F9L$,F9R$,C5$,P6$,P7$,P8$,P4$,EP1$
  1766. 17660 PLAY A0$ ,D0$ ,B7$ ,F0L$,F0R$,C5$,P6$,P7$,P8$,Q4$,EP1$
  1767. 17670 PLAY A9$ ,D9$ ,B6$ ,F9L$,F9R$,C5$,P6$,P7$,P8$,P4$,EP1$
  1768. 17680 PLAY A0E$,D0E$,B7E$,FEL$,FER$,C5$,S6$,S7$,P8$,Q4$,EP1$
  1769. 17690 '
  1770. 17700 PLAY SB3$,SC1$,SC2$,SC3$
  1771. 17710 PLAY SB4$,SC1$,SC2$,SC3$
  1772. 17720 PLAY SB3$,SC1$,SC2$,SC3$
  1773. 17730 PLAY SB4$,SC1$,SC2$,SC3$
  1774. 17740 RETURN
  1775. 17750 '
  1776. 17760 '
  1777. 17770 *S_23
  1778. 17780 ' WINTERMIN
  1779. 17790 VOICE COPY 62,A : VOICE 1,A  :  VOICE COPY 15,A : VOICE 2,A
  1780. 17800 VOICE COPY 15,A : VOICE 3,A
  1781. 17810 '
  1782. 17820 A1L$="@1V5O2L8 %L1 G1&G2&G4&G G      "
  1783. 17830 A1R$="@1V5O2L8 %R1 E1&E2&E4&E E      "
  1784. 17840 A2L$="@1V5O2L8 %L1 F#1&F#2&F#4&F# F# %C"
  1785. 17850 A2R$="@1V5O2L8 %R1 D1&D2&D4&D D      %C"
  1786. 17860 A3L$="@1V5O2L8 %L1 A1 B2>C4D4  %C"
  1787. 17870 A3R$="@1V5O2L8 %R1 F#1G2 A4B4   %C"
  1788. 17880 '
  1789. 17890 D1L$="@2V7O3L16%L1 >C2&C&C&C<A8B8>C  E4 D&D8&D8<B&B8 G8B8 %C"
  1790. 17900 D1R$="@2V7O3L16%R1  A2&A&A G&G8G8 A> C4<B&B8>C8&C<A8 E8G8 %C"
  1791. 17910 D2L$="@2V7O3L16%L1 >C2&C&C&C<A8B8>C  E4C#64D64&D32&D8 G8G G8F8F8 %C"
  1792. 17920 D2R$="@2V7O3L16%R1  A2&A&A G&G8G8 A> C4         <B&B8>E8E&E8D8D8 %C"
  1793. 17930 D3L$="@2V7O3L16%L1 >E2&E&E G A8&A&A8 >C8&C<A8&A E8D4E8   "
  1794. 17940 D3R$="@2V7O3L16%R1 >C2&C&C E&E8 B&B8  A8 B8&B8  C8<B4>C8 "
  1795. 17950 D4L$="@2V7O3L16%L1 >C4&C8<A&A8>C8&C<A8&A8 >D4   D&D8C8CC8<B8B8"
  1796. 17960 D4R$="@2V7O3L16%R1  A4  G8&GB8&B8B&B8G8    BB&B8B&B8A8AA8 GGG8"
  1797. 17970 '
  1798. 17980 D5L$="@2V7O3L16%L1 >C&C8<A8&A&A8 A8B4>C8   E&E&EC&C8&C8 C8&C4D8"
  1799. 17990 D5R$="@2V7O3L16%R1  A8  B&B8AG8  &G8G4 A8 >C&C D&D&D8<B8&B8>G4&G8"
  1800. 18000 D6L$="@2V7O3L16%L1  B4>C<B8&B8B>C8 C8<B8>C4   C&C8C8CC8<B8>C8 "
  1801. 18010 D6R$="@2V7O3L16%R1  G8>C8&C<G8B8&BA8A8G8 A&A8AA&A8A8AA8 GG A8"
  1802. 18020 D7L$="@2V7O3L16%L1  A4 >C8C G8G8G&G8E8 D&D8<D>D&D8C8CC8&C8 V4G8 %C"
  1803. 18030 D7R$="@2V7O3L16%R1  R8B8A8A>E8E8EF8&F8<B&B8 G B&B8A8AA8 G8  &G8 %C"
  1804. 18040 D8L$="@2V7O3L16%L1  BB&B8B&B8>C8CC8D4    C4 &C&C8<A&A8A8&A4  %C"
  1805. 18050 D8R$="@2V7O3L16%R1  GG&G8G&GG A8AA8B8BG  A4 B&B8&B8G&G8A4  %C"
  1806. 18060 D9L$="@2V7O3L16%L1  BB&B8B&B8>C8CC8D4    C4 C&C8C8<B>C8C4 %C"
  1807. 18070 D9R$="@2V7O3L16%R1  GG&G8G&GG A8AA8B8BG  A8E8A&A8A8 G A8A4 %C"
  1808. 18080 '
  1809. 18090 E1L$="@3V7O3L16%L1 >E4E8EE8EE8E8E8  D4  D&D8 E8EE8F4 "
  1810. 18100 E1R$="@3V7O3L16%R1 >CCC8C8CC8CCCC8C8 <B8GBB&B8>C8CC8D4 "
  1811. 18110 E2L$="@3V7O3L16%L1 >EE&E8E8&E4&E8E8  E8  D&D8D&D8D E8EE8<B4 "
  1812. 18120 E2R$="@3V7O3L16%R1 >CC&C8C8&C4&C8C<A>C8 <B&B8B&BBB>C8CC8<GFED "
  1813. 18130 E3L$="@3V7O3L16%L1 >C4&C&C8<A8 >EE8&E8C8 <B8&B  B8&BG4G8  C8&C8"
  1814. 18140 E3R$="@3V7O3L16%R1  A4 B&B8&B8 >CC8 D4   <G8>C&C8<A4 G&G8 E8E8"
  1815. 18150 E4L$="@3V7O3L16%L1  B4G8&G>C4<B&B8 G8  B8&B8>G8&G C8&C<B8&B8>B8"
  1816. 18160 E4R$="@3V7O3L16%R1  G8>C4<B&B8G8&G>C4 &C8 C8 CE<B&B8>C&C8 C4"
  1817. 18170 E5L$="@3V7O3L16%L1 >E4E8EE8EE8E8E8   DD&D8D&D8 F8FF8E8D8"
  1818. 18180 E5R$="@3V7O3L16%R1 >CCC8C8CC8CCCC8C8<BB&B8B&B8>D8DD8C8<B8 "
  1819. 18190 E6L$="@3V7O3L16%L1 >C8&C4C8&C4C4 <BBRRB8&B>C8CC8D8D8"
  1820. 18200 E6R$="@3V7O3L16%R1  A8&A4A8&A4A4  GG8RG8&G A8AA8B8BB"
  1821. 18210 E7L$="@3V7O3L16%L1 >E4E8&EE8GF8E8 D8  C4   C&C8&C8<B8&B>C4"
  1822. 18220 E7R$="@3V7O3L16%R1 >C4C8&CC8ED8C8<B8  A&A8AA&A8 B4  >D&D8<B8 "
  1823. 18230 E8L$="@3V7O3L16%L1 >E8E8G8&GE8&ED8&D8D8   C<BRBRBBR A4B4"
  1824. 18240 E8R$="@3V7O3L16%R1 >C8C8C8 F&F8E&E8C8&C8< A GRGRGGR F4G4"
  1825. 18250 '
  1826. 18260 G1L$="@88V5O3L16%L1 E1G2F2 "
  1827. 18270 G1R$="@88V5O3L16%R1 C1E2D2 "
  1828. 18280 G2L$="@88V5O3L16%L1 E1G2A4B4 "
  1829. 18290 G2R$="@88V5O3L16%R1 C1E2F4G4 "
  1830. 18300 G3L$="@88V5O3L16%L1 (>C<B8)4 >C8D8  E D8D8CD8 G4F4"
  1831. 18310 G3R$="@88V5O3L16%R1 ( A G8)4  A8B8 >C<B8B8AB8>E4D4 "
  1832. 18320 G4L$="@88V5O3L16%L1 >E2&E GF8 E8 D8C2<B2 "
  1833. 18330 G4R$="@88V5O3L16%R1 >C2&C ED8 C8<B8A2 G2 "
  1834. 18340 G5L$="@88V5O3L16%L1 E1 D2C4<B4"
  1835. 18350 G5R$="@88V5O3L16%R1 C1<B2A4 G4"
  1836. 18360 G6L$="@88V5O3L16%L1 C4&C8&CF8&F8D8&D&D8 <B4&B&B8>D8&D<B8&B8B8 %C"
  1837. 18370 G6R$="@88V5O3L16%R1<A4&A8>G&G8E8&E8&EC8&C4 C&C8&C8C&C8<A8&A8  %C"
  1838. 18380 G7L$="@1V5O2L8  A&A>CG4&G4E&E&E4C&C4&C4"
  1839. 18390 G7R$="@1V5O2L8  RB&B>E4F4&FD&D4&D&D4<G4"
  1840. 18400 G8L$="@1V5O2L8  B&B4>C&C4D4C1"
  1841. 18410 G8R$="@1V5O2L8  G&G4 A&A4B4A1"
  1842. 18420 G9L$="@1V5O3L16 C4&C&C8C8 <B&B8A8&A8>E&E8&EE&E8&E8D&D8C8&C8 Q8"
  1843. 18430 G9R$="@1V5O3L16<A4>C&C8&C8<GB8&B8G8 >C&C8<E&E&E8>E8&ED8&D8<B8 Q8"
  1844. 18440 G0L$="@1V5O3L16 D4&D&D8D8&DC&C<B8&B8 >CC8&CC&C8&C8C&C8C8&C8  Q8"
  1845. 18450 G0R$="@1V5O3L16<B4>D&D8&D8C&C<C&C8A8  AA8A&A&A8>C8&CC8&C8C8  Q8"
  1846. 18460 '
  1847. 18470 C1$= "@85V0O3L16  AR>C<ARR<A>RAR>D<ARRRR AR>C<ARR<A>RARGARRAA"
  1848. 18480 C2$= "@85V0O5L16 CRRRCRRCR<BBRARGR >ERR<E>ERRERDDRCR<BR"
  1849. 18490 C3$= "@85V0O5L16 DRRRDRRDRCC<CBRAR >CCR<A>CRRCRCCRCRCR "
  1850. 18500 C4$= "@77V0O3L16 Q3 (>C<BGE>>C<G<EB >C<GBE>>C<<GE>C<) Q8" 
  1851. 18510 C5$= "@85V0O4L16 AARR>A<RRA R>A<AR>AR<ARAARR>A<ARA R>A<AR>AR<AR Q8"
  1852. 18520 C6$= "@85V0O4L16 EERR>E<RRE R>E<ER>ER<ERGGRR>G<GRG R>G<GR>G4   Q8"
  1853. 18530 C7$= "@103V2O2L16 Q1 (ARRA>AR<AR)> CRRC>C<<C>CR CCRC>C<RCR Q8"
  1854. 18540 C8$= "@103V2O2L16 Q1 (GRRG>GR<GR)  ARRA>A<<A>AR AR>E<A>A<RAR Q8"
  1855. 18550 C9$= "@96V2O3L16 Q2 (CGB>C<)4  (CGB>D<)4"
  1856. 18560 C0$= "@96V2O3L16 Q2>(C<B>EA)4 <BA>C<B>DC<B>C <BA>C<B>DCEF"
  1857. 18570 C10$="@96V2O3L16 Q2>CRCRCR<CGRGBR>CRDR    CR<CRB>RRCRC<BR>CR<BR>"
  1858. 18580 C11$="@96V2O3L16 Q2>C<G>CRCR<CGRGBR>CRDR  CR<CRG>RRCRC<GR>CR GR  Q8"
  1859. 18590 '
  1860. 18600 F1$= "@85V0O4L16 <D>DRD<DR>D<DC>CRC<CR>CR<<B>BRB<BR>B<B>C>CRC<CR>CR"
  1861. 18610 F2$= "@85V0O4L16 <D>DRD<DR>D<DC>CRC<CR>CR<G>GRG<GR>G<GF>FRF<FR>FR  "
  1862. 18620 F3$= "@85V0O4L16 <E>ERE<ER>E<ED>DRD<DR>DR<C>CRC<CR>C<CD>DRD<DR>DR  "
  1863. 18630 F4$= "@85V0O4L16 <E>ERE<ER>E<ED>ERE<ER>ER<D>DRD<DR>D<DC>CR<B<BR>BRQ8"
  1864. 18640 F5L$="@1V5O2L8 %L2 >C&C&C<B&B2 >D&D&DC&C2 %C"
  1865. 18650 F5R$="@1V5O2L8 %R2  A&A&A G&G2  B&B&BA&A2 %C"
  1866. 18660 F6L$="@1V5O2L8 %L2  G&G&GA&A&A B&B> L16 CRRRCRRCR<B>C<C>C4  %C"
  1867. 18670 F6R$="@1V5O2L8 %R2  D&D&DF&F&F G&G  L16 ARERAARAR G A E A4  %C"
  1868. 18680 F7L$="@1V5O2L8 %L2  G&G&GA&A&A B&B &B C4B4  >G4>C %C"
  1869. 18690 F7R$="@1V5O2L8 %R2  D&D&DF&F&F G&G  <B4>G4> C4B4  %C"
  1870. 18700 '
  1871. 18710 H1$= "@16V0O5L8  C1 G&G&GC&C&C<B&B "
  1872. 18720 H2$= "@16V0O5L8  C1 D&D&DE&E&EF&F"
  1873. 18730 H3$= "@16V0O5L8  E1 D1"
  1874. 18740 H4$= "@16V0O5L8  C1 <B&B&B>C&C&CD&D"
  1875. 18750 H5$= "@16V0O5L8 >C1 <G1  "
  1876. 18760 H6$= "@16V0O5L8  C1 D1  " 
  1877. 18770 H7L$="@16V0O5L8  C1&C1 " 
  1878. 18780 H7R$="@16V0O5L8  E1&E1 " 
  1879. 18790 '
  1880. 18800 '
  1881. 18810 B1S$="@28V7O2L16 AR<A>RAARARRRRRRRR RRRRRRRRRRRRRRRR"
  1882. 18820 B1$ ="@28V7O2L16 AR<A>RAARARAARARAR DRDRDDRDREERERDG"
  1883. 18830 B2$ ="@28V7O2L16 FRRFR<F>FRRFRRERFR<G>GRRGRGGRGGR>C<RBR"
  1884. 18840 B3$ ="@28V7O2L16 ARRRARRARAARGRAR   >C<C>RRCRRCRCR<B>CRE"
  1885. 18850 B4$ ="@28V7O2L16 GRRRGRRG<G>GGRGRGR AARRAR<A>ARA>C<RAR>C<R"
  1886. 18860 B5$ ="@28V7O2L16>CCRRCRRC RCRR<G8>D8 <BDBRBRBB RRBRD8G8"
  1887. 18870 B6$ ="@28V7O2L16 AAARARAA RRRA E8 F8  GGRRRRGG RRRR >D8<B8 "
  1888. 18880 B7$ ="@28V7O2L16 FF&F8>C&C8<F8>C<F8>C8<F8 GG&G8>D&D8<G8>DD8C8<B8"
  1889. 18890 B8$ ="@28V7O2L16 FF&F8>C&C8<F8>CC8<B8>C8 <GG&G8>D&D8<G8>EE8C8<B8"
  1890. 18900 '
  1891. 18910 P1$= "@1V10O0L16GRRGRRRG RRGRRRRR  GRRGRRRG RRGRRRGR"
  1892. 18920 P2$= "@5V3O4L16 RRBRRRBR RBRRRRBB  RRBRRRBR RBRRRRBR"
  1893. 18930 P3$= "@5V3O3L16 RRRRCRRR RRRRCRRR  RRRRCRRB RRBRCRRR"
  1894. 18940 Q3$= "@5V3O3L16 RRRRCRRR RRRRCRRB  RBBRBRBB RBB]BB]B]B]B "
  1895. 18950 P4$= "@9V1O6L16  ((B]B[)3 E]B[)3 B]B[B]B[ B]B32B32[B]B["
  1896. 18960 S4$= "@9V1O6L16  ((B]B[)3 E]B[) B                      "
  1897. 18970 P5$= "@9V4O2L16   RRGRCRRR RRGRCRBR  RRGRCRRC  RRGRCRBR "
  1898. 18980 S5$= "@9V4O2L16   RRGRCRRR RRGRCRBR  "
  1899. 18990 P6$= "@9V2O5L16    GGGR GRGG RGGR GRG32G32R  GRGR GRGG RGGR GRGG"
  1900. 19000 S6$= "@9V2O5L16    GGGR GRGG RGGR GRG32G32R  G"
  1901. 19010 FP1$="@105V15O0L16 Q1((CRRR)4)                    Q8"
  1902. 19020 FP2$="@105V15O0L16 Q1 (CRRR)4 CRRR RRRR RRRR RRCR Q8"
  1903. 19030 FP3$="@105V15O0L16 Q1 CRRRRRRR RRRRRRRR RRRRRRRR RRRRRRCR Q8"
  1904. 19040 FP4$="@22V0O5L16 Q4 (RRRRRRRR)L32(EEEE)L16@92V7O0 RRCRRRCR@22O5V2CQ8"
  1905. 19050 FP5$="@22V0O5L16 Q4 (RRRRRRRR)L32(EEEE)L16@92V7O0 RRCRCRRR@80C4Q8"
  1906. 19060 FP6$="@105V15O0L16Q1((CRRR))3Q8@91V5O0E8@79R8V8%L5A>%R5A>%L5A>%R5A%C"
  1907. 19070 BP1$="@9V3O5L16 ((RRRR))3 RRDR GRCR"
  1908. 19080 BP2$="@9V5O4L16 ((RRRR))3 <B>BRB <C>RB<B"
  1909. 19090 '
  1910. 19100 '
  1911. 19110 '
  1912. 19120 PLAY A1L$,A1R$,    ,,,,P6$
  1913. 19130 PLAY A2L$,A2R$,    ,,,,P6$
  1914. 19140 PLAY A1L$,A1R$,B1S$,,,,P6$,P4$
  1915. 19150 PLAY A3L$,A3R$,B1S$,,,,P6$,P4$,BP1$
  1916. 19160 PLAY A1L$,A1R$,B1$,C1$,,FP1$,P4$,P5$,P6$
  1917. 19170 PLAY A2L$,A2R$,B1$,C1$,,FP1$,P4$,P5$,P6$
  1918. 19180 PLAY A1L$,A1R$,B1$,C1$,,FP1$,P4$,P5$,P6$
  1919. 19190 PLAY A3L$,A3R$,B1$,C1$,,FP2$,P4$,P5$,P6$
  1920. 19200 '
  1921. 19210 PLAY D1L$,D1R$,B1$,C1$,,FP1$,P4$,P5$,P6$
  1922. 19220 PLAY D2L$,D2R$,B1$,C1$,,FP1$,P4$,P5$,P6$
  1923. 19230 PLAY D3L$,D3R$,B1$,C1$,,FP1$,P4$,P5$,P6$
  1924. 19240 PLAY D4L$,D4R$,B2$,C1$,,FP1$,S4$,P5$,S6$
  1925. 19250 PLAY D1L$,D1R$,B1$,C1$,F1$,FP1$,P4$,P5$,P6$
  1926. 19260 PLAY D2L$,D2R$,B1$,C1$,F2$,FP1$,P4$,P5$,P6$
  1927. 19270 PLAY D3L$,D3R$,B1$,C1$,F3$,FP1$,P4$,P5$,P6$
  1928. 19280 PLAY D4L$,D4R$,B2$,C1$,F4$,FP1$,P4$,P5$,P6$
  1929. 19290 PLAY B3$,C1$,D5L$,D5R$,C2$,FP3$,,P5$,P6$
  1930. 19300 PLAY B4$,C1$,D6L$,D6R$,C3$,FP3$,,P5$,P6$
  1931. 19310 PLAY B3$,C1$,D5L$,D5R$,C2$,FP3$,,P5$,P6$
  1932. 19320 PLAY B4$,C1$,D6L$,D6R$,C3$,FP3$,,P5$,P6$
  1933. 19330 PLAY B3$,D7L$,D7R$,F5L$,F5R$,FP1$,P3$,P5$,P6$
  1934. 19340 PLAY B4$,D8L$,D8R$,F6L$,F6R$,FP1$,P3$,P5$,P6$
  1935. 19350 PLAY B3$,D7L$,D7R$,F5L$,F5R$,FP1$,P3$,P5$,P6$
  1936. 19360 PLAY B4$,D8L$,D8R$,F6L$,F6R$,FP2$,Q3$,S5$,S6$
  1937. 19370 '
  1938. 19380 PLAY B1$,C5$,FP4$,G1L$,G1R$,FP3$
  1939. 19390 PLAY B1$,C6$,FP5$,G2L$,G2R$,FP3$
  1940. 19400 PLAY B1$,C5$,FP4$,G3L$,G3R$,FP3$
  1941. 19410 PLAY B2$,C6$,FP5$,G4L$,G4R$,FP3$
  1942. 19420 PLAY B1$,C5$,C1$,G1L$,G1R$,FP1$,P3$,P5$,P6$,P4$
  1943. 19430 PLAY B1$,C6$,C1$,G2L$,G2R$,FP1$,P3$,P5$,P6$,P4$
  1944. 19440 PLAY B1$,C5$,C1$,G5L$,G5R$,FP1$,P3$,P5$,P6$,P4$
  1945. 19450 PLAY B2$,C6$,C1$,G6L$,G6R$,FP2$,S3$,S5$,S6$,S4$
  1946. 19460 PLAY B3$,C7$,G9L$,G9R$,FP4$,FP1$
  1947. 19470 PLAY B4$,C8$,G0L$,G0R$,FP5$,FP2$,BP1$
  1948. 19480 PLAY B3$,C7$,G9L$,G9R$,FP4$,FP1$
  1949. 19490 PLAY B4$,C8$,G0L$,G0R$,FP5$,FP2$,BP2$
  1950. 19500 PLAY B3$,C7$,G7L$,G7R$,FP4$,FP1$,P3$,P5$
  1951. 19510 PLAY B4$,C8$,G8L$,G8R$,FP5$,FP1$,P3$,P5$
  1952. 19520 PLAY B3$,C7$,G7L$,G7R$,FP4$,FP1$,P3$,P5$,P6$
  1953. 19530 PLAY B4$,C8$,G8L$,G8R$,FP5$,FP6$,P3$,P5$,P6$
  1954. 19540 '
  1955. 19550 PLAY B5$,E1L$,E1R$,C9$ ,,,P1$,P2$,P3$,P4$
  1956. 19560 PLAY B6$,E2L$,E2R$,C0$ ,,,P1$,P2$,P3$,P4$
  1957. 19570 PLAY B7$,E3L$,E3R$,C10$,,,P1$,P2$,P3$,P4$
  1958. 19580 PLAY B8$,E4L$,E4R$,C11$,,,P1$,P2$,Q3$,P4$
  1959. 19590 PLAY B5$,E5L$,E5R$,C9$ ,H1$,,P1$,P2$,P3$,P4$
  1960. 19600 PLAY B6$,E6L$,E6R$,C0$ ,H2$,,P1$,P2$,P3$,P4$
  1961. 19610 PLAY B7$,E7L$,E7R$,C10$,H5$,,P1$,P2$,P3$,P4$
  1962. 19620 PLAY B8$,E8L$,E8R$,C11$,H6$,,P1$,P2$,Q3$,S4$
  1963. 19630 PLAY B5$,,C9$ ,H1$,FP4$,FP3$
  1964. 19640 PLAY B6$,,C0$ ,H2$,FP5$,FP3$
  1965. 19650 PLAY B7$,,C10$,H3$,FP4$,FP3$
  1966. 19660 PLAY B8$,,C11$,H4$,FP5$,FP3$
  1967. 19670 PLAY B5$,C4$,C9$ ,H1$,FP4$,FP1$
  1968. 19680 PLAY B6$,C4$,C0$ ,H2$,FP5$,FP1$
  1969. 19690 PLAY B7$,C4$,C10$,H5$,FP4$,FP1$
  1970. 19700 PLAY B8$,C4$,C11$,H6$,FP5$,FP2$
  1971. 19710 PLAY H7L$,H7R$,FP4$,FP3$
  1972. 19720 RETURN
  1973. 19730 '
  1974. 19740 '
  1975. 19750 *S_23E
  1976. 19760 ' WINTERMIN [ CREEPING BASS MIX ]  
  1977. 19770 VOICE COPY 85,A : VOICE 1,A  :  VOICE COPY 17,A : VOICE 2,A
  1978. 19780 '
  1979. 19790 A3L$="@62V4O2L8%L1  A4>CG4&G4E&E&E4C&C4&C4 %C"
  1980. 19800 A3R$="@62V4O2L8%R1  RB4>E4F4&F D&D4&D&D4<G4 %C"
  1981. 19810 A4L$="@62V4O2L8%L1  B&B4>C&C4D4 C1 %C"
  1982. 19820 A4R$="@62V4O2L8%R1  G&G4 A&A4B4 A1 %C"
  1983. 19830 A5L$="@115V2O3L8%L1 >E&E&E&E&E&E<B&B &B&B B&B&B&B>G&G %C"
  1984. 19840 A5R$="@115V2O3L8%R1  R&R&R A&A&A&A&A >C&C&C C&C&C&C&C %C"
  1985. 19850 A6L$="@115V2O3L8%L1 >E1&E1 %C"
  1986. 19860 A6R$="@115V2O3L8%R1 >C1&C1 %C"
  1987. 19870 '
  1988. 19880 C1$= "@108V0O1L16Q1 (AAA&AA>A<A&A AA&AA>>C<<A>C&C<) Q8"
  1989. 19890 C1E$="@108V3O1L16Q1 (AAA&AA>A<A&A AA&AA>>C<<A>C&C<) Q8"
  1990. 19900 C2$= "@22V5O5L16Q1  (AAAA>>A<<AAA AA>A<A>>A<<AA>A<)  Q8"
  1991. 19910 C3$= "@77V0O4L16Q3   (RRRR ARRR)4  Q8"
  1992. 19920 C4$= "@77V0O4L16Q3   (RRRR ARRR) (RRRRGRRR)  Q8"
  1993. 19930 C5$= "@77V0O4L16Q3   (RRRR GRRR) (RRRRARRR)  Q8"
  1994. 19940 C6$= "@77V0O3L16Q3   A&A&A&A &A&AAA @92V5O0Q2 RRRR RRGR C Q8"
  1995. 19950 C7$= "@77V0O3L16   >E&E8C&C8<B8A&A8B&B8>C8 E&E8C&C8<B8A&A8B&B8A8 Q8"
  1996. 19960 C9$= "@83V2O3L16 Q1 (AA>E<)AA (GG>D<)GG (DD>D<)DD (EE>E<)EB Q8"
  1997. 19970 C0$= "@70V5O2L16 (A4<<@79C@70RRR>>A4<<@78C@70RRR>>) "
  1998. 19980 C0E$="@79V2O1L16 (C4V7<CRRR>V2CCRC<A>R<]]@78CR@79[[>) "
  1999. 19990 '
  2000. 20000 F1$= "@85V2O4L1  %L5A>%R5A< %C" 
  2001. 20010 F2$= "@85V2O4L2  %L5A>%R5A>%L1C<%R1B  %C" 
  2002. 20020 F3$= "@85V2O4L2  %L5A>%R5A>%L1E %R1D  %C " 
  2003. 20030 F4$= "@85V2O4L2  %L5A>%R5A %L1G %R1B  %C " 
  2004. 20040 F5$= "@85V2O4L1   A"
  2005. 20050 '
  2006. 20060 E1L$= "@44V5O3L16%L1 >C[C8[CC8[CC8[CC8C8C8 %CCRRCRRCC8CRRC8C8  Q8"
  2007. 20070 E1R$= "@44V5O3L16%R1  A[A8[AA8[AA8[AA8A8A8 %CARRARRAA8ARRA8A8 Q8"
  2008. 20080 E2L$= "@44V5O3L16%L1  B[B8[BB8[BB8[BB8B8B8 %CBRRBRRBB8BRRB8B8 Q8"
  2009. 20090 E2R$= "@44V5O3L16%R1  G[G8[GG8[GG8[GG8G8G8 %CGRRGRRGG8GRRG8G8 Q8"
  2010. 20100 '
  2011. 20110 B1$= "@105V9O0L8 Q6  A&AAD A16>D16<AGA  A&AAD A16>D16<AGA  Q8"
  2012. 20120 B1E$="@105V9O0L8 Q6  A&AAD A16>D16<AGA  G2&G4>C4  Q8"
  2013. 20130 B2$= "@105V9O0L8 Q6  G&GGC G16B16>C<EE L16GGCGGDAEL8D>D<E>E< Q8"
  2014. 20140 B3$= "@77 V4O2L16<A8>E<A>G8<A>F8<A>E8D8E8< A8>E<A>G8<A>F8<A>E8F8E8Q8"
  2015. 20150 B3E$="@88 V3O1L1 A&A "
  2016. 20160 B4$= "@105V9O0L16Q6  A&AGA&ARG&GGAGRD&DE&E A&AGA&ARG&GGAGRD>D<E>EQ8"
  2017. 20170 B5$= "@105V9O0L16Q6  A&AGRD&D&D ERD&DRDRGE A&ARA&ARG&GGRGD&D&DE&EQ8"
  2018. 20180 B6$= "@105V9O0L16Q6  A8A8 A8A8 G8EE 8DC8 D8D8 D8D8 EE8E 8DE8 Q8"
  2019. 20190 B6E$="@105V9O0L16Q6  A8A8 A8A8 G8EE 8DC8 D8D8 D8D8 EE8E 8GE8 Q8"
  2020. 20200 B7$= "@105V9O0L16Q6   A8A8AA8AA>C<A8G8A8 >CC&C8C8&CC8CE8F8G8 Q8"
  2021. 20210 B8$= "@105V9O0L16Q6   G8G8GG8G8GB8>C8D8  <AA8GA&A8A8AA8A8A8 Q8"
  2022. 20220 '
  2023. 20230 P1$="@9V5O2L16 (RRBR >CRRR<)3 RRBR >C<RBB"
  2024. 20240 Q1$="@9V3O2L16 (RRBR >CRRR<) ]]RRBB>C<BRB RBBR >CR<BR"
  2025. 20250 R1$="@9V3O2L16 (RRBR >CRRR<)  BRBR>C<RBBR>C<BR>C<RBR"
  2026. 20260 S1$="@9V3O2L16 (RRBR >CRRR<) "
  2027. 20270 P2$="@9V1O6L16 (BB]B[BBB]B[B)3 BB]B[B32B32 BB]B[B"
  2028. 20280 S2$="@9V1O6L16 (BB]B[BBB]B[B)  B"
  2029. 20290 P3$="@1V15O0L16 (GRRR GRRR)4 "
  2030. 20300 Q3$="@1V15O0L16  GRRR "
  2031. 20310 P4$=""
  2032. 20320 BP1$="@5V1O3L16 (RRRRRRRR)3 %L5CR%R5CCR%L5C%R5CR %C"
  2033. 20330 FP1$="@105V15O0L16Q1 (CRRRCRRR)4 Q8"
  2034. 20340 FP2$="@105V15O0L16Q1  CRRRRRRR   Q8"
  2035. 20350 '
  2036. 20360 '
  2037. 20370 '
  2038. 20380 PLAY B1$ ,C1$
  2039. 20390 PLAY B1$ ,C1$
  2040. 20400 PLAY B1$ ,C1$,C3$
  2041. 20410 PLAY B1E$,C1$,C4$
  2042. 20420 PLAY B1$ ,C1$,C3$,   ,,FP1$
  2043. 20430 PLAY B2$ ,C1$,C4$,   ,,FP1$
  2044. 20440 PLAY B1$ ,C1$,C3$,C2$,,FP1$
  2045. 20450 PLAY B2$ ,C1$,C4$,C2$,,FP2$
  2046. 20460 PLAY B7$ ,C1$,C3$,C2$,,FP1$,P1$,P2$,P3$
  2047. 20470 PLAY B8$ ,C1$,C5$,C2$,,FP1$,P1$,P2$,P3$
  2048. 20480 PLAY B7$ ,C1$,C3$,C2$,,FP1$,P1$,P2$,P3$
  2049. 20490 PLAY B8$ ,C1$,C5$,C2$,,FP1$,P1$,P2$,P3$
  2050. 20500 PLAY B7$ ,A3L$,A3R$,C2$,C3$
  2051. 20510 PLAY B8$ ,A4L$,A4R$,C2$,C5$
  2052. 20520 PLAY B7$ ,A3L$,A3R$,C2$,C3$
  2053. 20530 PLAY B8$ ,A4L$,A4R$,C2$,C5$
  2054. 20540 PLAY B3E$,C6$,C1$,C3$
  2055. 20550 PLAY B3E$,C6$,C1$,C3$
  2056. 20560 PLAY B3E$,C6$,C1$,C3$,B3$,FP2$,Q3$
  2057. 20570 PLAY B3E$,C6$,C1$,C3$,B3$,FP2$,Q3$
  2058. 20580 PLAY B3$ ,C1$,C3$,C2$,C7$,FP1$,P1$,P2$,P3$
  2059. 20590 PLAY B3$ ,C1$,C3$,C2$,C7$,FP1$,P1$,P2$,P3$
  2060. 20600 PLAY B3$ ,C1$,C3$,C2$,C7$,FP1$,P1$,P2$,P3$
  2061. 20610 PLAY B3$ ,C1$,C3$,C2$,C7$,FP1$,Q1$,P2$,P3$
  2062. 20620 PLAY B4$ ,C3$,E1L$,E1R$,C7$,FP1$,P1$,P2$,P3$
  2063. 20630 PLAY B5$ ,C3$,E2L$,E2R$,C7$,FP1$,P1$,P2$,P3$
  2064. 20640 PLAY B4$ ,C3$,E1L$,E1R$,C7$,FP1$,P1$,P2$,P3$
  2065. 20650 PLAY B5$ ,C3$,E2L$,E2R$,C7$,FP1$,R1$,P2$,P3$
  2066. 20660 PLAY B4$ ,E1L$,E1R$,A3L$,A3R$,C1E$,P1$,P2$,P3$
  2067. 20670 PLAY B5$ ,E2L$,E2R$,A3L$,A3R$,C1E$,P1$,P2$,P3$
  2068. 20680 PLAY B4$ ,E1L$,E1R$,A3L$,A3R$,C1E$,P1$,P2$,P3$
  2069. 20690 PLAY B5$ ,E2L$,E2R$,A3L$,A3R$,C1E$,S1$,S2$,Q3$
  2070. 20700 PLAY B4$ ,E1L$,E1R$,A5L$,A5R$,C2$
  2071. 20710 PLAY B5$ ,E2L$,E2R$,A5L$,A5R$,C2$
  2072. 20720 PLAY B4$ ,E1L$,E1R$,A5L$,A5R$,C2$
  2073. 20730 PLAY B5$ ,E2L$,E2R$,A5L$,A5R$,C2$
  2074. 20740 PLAY B6$ ,C6$,C2$,A6L$,A6R$,C1$,P1$,P2$,P3$
  2075. 20750 PLAY B6E$,C6$,C2$,    ,    ,C1$,P1$,P2$,P3$
  2076. 20760 PLAY B6$ ,C6$,C2$,C7$ ,    ,C1$,P1$,P2$,P3$
  2077. 20770 PLAY B6E$,C6$,C2$,C7$ ,    ,C1$,S1$,S2$,Q3$
  2078. 20780 PLAY B6$ ,C1$,F1$,C0$
  2079. 20790 PLAY B6E$,C1$,F1$,C0$
  2080. 20800 PLAY B6$ ,C1$,F1$,C0$ ,C9$
  2081. 20810 PLAY B6E$,C1$,F1$,C0$ ,C9$ ,,BP1$
  2082. 20820 PLAY B6$ ,C1$,F2$,C0E$,C9$,FP1$,P1$,P2$,P3$
  2083. 20830 PLAY B6E$,C1$,F3$,C0E$,C9$,FP1$,P1$,P2$,P3$
  2084. 20840 PLAY B6$ ,C1$,F2$,C0E$,C9$,FP1$,P1$,P2$,P3$
  2085. 20850 PLAY B6E$,C1$,F4$,C0E$,C9$,FP1$,R1$,P2$,P3$
  2086. 20860 PLAY     ,C1$,F2$,C0E$,C9$,FP2$,S1$,S2$,Q3$
  2087. 20870 PLAY     ,C1$,F3$,C0E$,C9$,FP2$,S1$,S2$,Q3$
  2088. 20880 PLAY     ,C1$,F2$,C0E$,C9$,FP2$,S1$,S2$,Q3$
  2089. 20890 PLAY     ,C1$,F4$,C0E$,C9$
  2090. 20900 PLAY     ,   ,F5$
  2091. 20910 RETURN
  2092. 20920 '
  2093. 20930 '
  2094. 20940 *S_APRIL
  2095. 20950 'APRIL FOOL  [EDIT]
  2096. 20960 VOICE COPY 106,A : VOICE 1,A  :  VOICE COPY 17,A : VOICE 2,A
  2097. 20970 '
  2098. 20980 A1$ ="@1V3O3L16 C4C&C8C8C&C8C8C8  D4D&D8D8DD8D8D8"
  2099. 20990 A2$ ="@1V3O3L16 E4E&E8E8E&E8E8E8  F4F&F8F8FF8F8F8"
  2100. 21000 A3$ ="@1V3O3L16 G4G&G8G8G&G8G8G8  A4A&A8A8AA8A8A8"
  2101. 21010 A4$ ="@1V3O3L16 B4B&B8B8B&B8B8B8 >C4C&C8C8CC8C8C8"
  2102. 21020 A1E$="@1V3O3L16 C4C&C8C8CC8C8C8   D(D&D8)D8DD8D8D8"
  2103. 21030 A2E$="@1V3O3L16 E4E&E8E8EE8E8E8   F(F&F8)F8FF8F8F8"
  2104. 21040 A3E$="@1V3O3L16 G4G&G8G8GG8G8G8   A(A&A8)A8AA8A8A8"
  2105. 21050 A4E$="@1V3O3L16 B4B&B8B8BB8B8B8  >C(C&C8)C8CC8C8C8"
  2106. 21060 A1F$="@1V3O3L16 C4C&C8C8CC8C8C8   D(D&D8)D8DD8D8 F8"
  2107. 21070 A2F$="@1V3O3L16 E4E&E8E8EE8E8E8   F(F&F8)F8FF8F8 A8"
  2108. 21080 A3F$="@1V3O3L16 G4G&G8G8GG8G8G8   A(A&A8)A8AA8A8>C8"
  2109. 21090 A4F$="@1V3O3L16 B4B&B8B8BB8B8B8  >C(C&C8)C8CC8C8 E8"
  2110. 21100 A1S$="@1V3O3L16 C4C&C8C8CC8C8C8   D1"
  2111. 21110 A3S$="@1V3O3L16 G4G&G8G8GG8G8G8   A1"
  2112. 21120 A4S$="@1V3O3L16 B4B&B8B8BB8B8B8  >C1"
  2113. 21130 A5L$="@1V3O1L16 %L1R1 B>CEGB>CEGB>CEGB>CEG %C"
  2114. 21140 A5R$="@1V3O1L16 %R1R1 GB>CEGB>CEGB>CEGB>CE %C"
  2115. 21150 A6$="@88V6O3L8  RRC&C D&DCG &GD&DD &DEDC"
  2116. 21160 A7$="@88V6O3L8  RRRC  CDCG &GD&DD &DEDC"
  2117. 21170 A8$="@88V6O3L8  RRRC  CDCA& A&AG&G  E&EDC"
  2118. 21180 A6$="@88V6O3L8  RRC&C D&DCG &GD&DD &DEDC"
  2119. 21190 A7$="@88V6O3L8  RRRC  CDCG &GD&DD &DEDC"
  2120. 21200 '
  2121. 21210 B1$="@106V7O1L16  C4R8C8G4R8G8 C4R8C8G4>C4< Q8"
  2122. 21220 B2$="@106V7O1L16  C4R8C8G4R8G8 C4R8C8G4C4 Q8"
  2123. 21230 B2E$="@106V7O1L16 C4R8C8G4R8G8 C4 R4R2  Q8"
  2124. 21240 C1$="@117V2O2L16 %L5GRGR%R5C%L5RGGRGRR%R5C%L5RGG "
  2125. 21250 C1$=C1$+"        GGGR%R5C%L5RGG G%R5C%L5GR%R5C%L5RGR "
  2126. 21260 C2$="@82V5O7L16 Q2(RRRRG@1@82RRR RRRRG@1@82RV0GRV5) Q8"
  2127. 21270 C3$="@79V4O1L16 Q1 (RRB[[B]] BBBB [[BRBR RRBR]]) Q8%C"
  2128. 21280 C4$="@22V0O2L16 Q2  (CCRCCRCC RCCR<C>RCR) Q8"
  2129. 21290 C4E$="@22V0O2L16Q2  RRRCRRCC RRCR<C>RRR R2RR V3<@81CR> @53C4  Q8"
  2130. 21300 C5$="@77V0O4L8  Q2  GB>C<GB>C<GB GB>C<GB>C<G>C<  Q8"
  2131. 21310 C5E$="@77V0O4L8 Q2  GB R RB R GR RB>C<R>G<  Q8"
  2132. 21320 C6$="@77V0O4L8  Q2  GB>C<GB>C<GB GB>C<GB>C G C<  Q8"
  2133. 21330 C6E$="@77V0O4L8  Q2 RB R RB R RR GR R RB R>G R   Q8"
  2134. 21340 C7$="@92V5O0L16 Q2CRRV0CV5RCCRCRRRCRV0CRV5 CRRV0CV5RCCV0CV5CV0CRRCQ8"
  2135. 21350 C8$="@16V0O4L16  ((B>CG<)B>C<)3 B>C>C<<B>CG<B>E< Q8"
  2136. 21360 C9$="@81V0O3L16  Q2(G>GG<B>BGCG<)4  Q8"
  2137. 21370 C9E$="@81V0O3L16 Q2(G>GG<B>BGCG<)>>B<B>G<G>D<D>C<C B<B>G<G>D<DC>>CQ8"
  2138. 21380 E1$="@84V5O0L1   CC"
  2139. 21390 E2$="@84V2O0L16 (CRRCRRCR CRRC RRCR)"
  2140. 21400 E3$="@16V0O5L16 Q4 (RRRR CRRR)4 Q8"
  2141. 21410 E4$="@87V0O4L16 R1 %R5 >C<BGCGC<BGBGC<B>C<BGC      %C"
  2142. 21420 E5$="@87V0O4L16 R1 %C   >R32C<BGCGC<BGBGC<B>C<BGC32 %C"
  2143. 21430 E6$="@87V0O4L16 R1 %L5   >R  C<BGCGC<BGBGC<B>C<BG    %C"
  2144. 21440 '
  2145. 21450 P1$="@1V15O0L8   GRGRGRGR GRGRGRGR"
  2146. 21460 S1$="@1V15O0L8   GRGRGRGR GRRRRRRR"
  2147. 21470 P2$="@1V15O0L16  GRRRRRRG RRGRRRGR GRGRRRRG RRGRRRGR"
  2148. 21480 Q2$="@1V15O0L16  GRRRRRRG RRGRRRGR GGGRRRGG RRGRRRRR"
  2149. 21490 S2$="@1V15O0L16  GRRRRRRG RRGRRRGR G"
  2150. 21500 P3$="@5V2O3L16   RRRR ERRR RRRR ERRE  RRRR ERRR RRRR ERRE "
  2151. 21510 Q3$="@5V2O3L16   RRRR ERRR RRRR ERRE  RRRR ERRR RERR ERCR "
  2152. 21520 R3$="@5V2O3L16   RRRR ERRR RCRR ERRE  RRRR ERRR RCRR ERRE "
  2153. 21530 S3$="@5V2O3L16   RRRR ERRR RRRR ERRE   "
  2154. 21540 P4$="@5V1O6L16   CCGC CCG<C>CCGC CGCG CCGC CCG<C> C<C>GC CGCG"
  2155. 21550 S4$="@5V1O6L16   CCGC CCG<C>CCGC CGCG "
  2156. 21560 P5$="@5V1O4L16   BRRB RBRR RBRR BRBR   BR>B<R BRRB RBRR BRBR"
  2157. 21570 S5$="@5V1O4L16   BRRB RBRR RBRR BRBR   B"
  2158. 21580 BP1$="@7V1O6L16 (RRRRRRRR)2 RR<G>R RRGR <G>GGGGGGG "
  2159. 21590 BP2$="@9V5O2L16 (RRRRRRRR)3 RR%L15E%R15E %CGR>CR"
  2160. 21600 BP3$="@5V2O2L16 (RRRRRRRR)3 RRRR[CR]]G@1<C> "
  2161. 21610 '
  2162. 21620 '
  2163. 21630 '
  2164. 21640 PLAY A1$ ,A2$ ,A3$ ,A4$
  2165. 21650 PLAY A1E$,A2E$,A3E$,A4E$
  2166. 21660 PLAY A1$ ,A2$ ,A3$ ,A4$
  2167. 21670 PLAY A1E$,A2E$,A3E$,A4E$
  2168. 21680 PLAY A1$ ,A2$ ,A3$ ,A4$ ,    ,    ,P1$,P3$,P4$
  2169. 21690 PLAY A1E$,A2E$,A3E$,A4E$,    ,    ,P1$,Q3$,P4$
  2170. 21700 PLAY A1$ ,A2$ ,A3$ ,A4$ ,    ,    ,P1$,P3$,P4$
  2171. 21710 PLAY A1E$,A2E$,A3E$,A4E$,A5L$,A5R$,P1$,Q3$,P4$
  2172. 21720 PLAY B1$ ,A1$ ,A2$ ,A3$ ,A4$ ,C9$ ,P1$,P3$,P4$,P5$
  2173. 21730 PLAY B2$ ,A1E$,A2E$,A3E$,A4E$,C9E$,P1$,Q3$,P4$,P5$
  2174. 21740 PLAY B1$ ,A1$ ,A2$ ,A3$ ,A4$ ,C9$ ,P1$,P3$,P4$,P5$
  2175. 21750 PLAY B2E$,A1F$,A2F$,A3F$,A4F$,C9E$,S1$,S3$,S4$,S5$
  2176. 21760 PLAY B1$,A1$ ,A3$ ,A4$ ,C9$ ,C8$,P1$,P3$,P4$,P5$
  2177. 21770 PLAY B2$,A1E$,A3E$,A4E$,C9E$,C8$,P1$,Q3$,P4$,P5$
  2178. 21780 PLAY B1$,A1$ ,A3$ ,A4$ ,C9$ ,C8$,P1$,P3$,P4$,P5$
  2179. 21790 PLAY B2$,A1S$,A3S$,A4S$,C9E$,C8$,P1$,Q3$,P4$,P5$
  2180. 21800 PLAY B1$,A1$ ,A4$ ,C9$ ,C8$
  2181. 21810 PLAY B2$,A1E$,A4E$,C9$ ,C8$
  2182. 21820 PLAY B1$,A1$ ,A4$ ,C9$ ,C8$
  2183. 21830 PLAY B2$,A1S$,A4S$,C9E$,C8$,,BP2$
  2184. 21840 PLAY B1$ ,C2$,C9$ ,A1$ ,A3$ ,A4$ ,P1$,P3$,P4$,P5$
  2185. 21850 PLAY B2$ ,C2$,C9$ ,A1E$,A3E$,A4E$,P1$,Q3$,P4$,P5$
  2186. 21860 PLAY B1$ ,C2$,C9$ ,A1$ ,A3$ ,A4$ ,P1$,P3$,P4$,P5$
  2187. 21870 PLAY B2E$,C2$,C9E$,A1S$,A3S$,A4S$,P1$,Q3$,P4$,P5$
  2188. 21880 PLAY B1$ ,A6$,C9$ ,A1$ ,A3$ ,A4$ ,P1$,P3$,P4$,P5$
  2189. 21890 PLAY B2$ ,A7$,C9$ ,A1E$,A3E$,A4E$,P1$,Q3$,P4$,P5$
  2190. 21900 PLAY B1$ ,A6$,C9$ ,A1$ ,A3$ ,A4$ ,P1$,P3$,P4$,P5$
  2191. 21910 PLAY B2E$,A7$,C9E$,A1S$,A3S$,A4S$,S1$,Q3$,P4$,P5$,BP1$
  2192. 21920 PLAY B1$
  2193. 21930 PLAY B2E$,C4E$
  2194. 21940 PLAY B1$ ,C3$
  2195. 21950 PLAY B2E$,C3$,C7$,,,,BP3$
  2196. 21960 PLAY B1$ ,C3$,C7$,C4E$,C2$,,P3$,   ,P5$
  2197. 21970 PLAY B2$ ,C3$,C7$,C4$ ,C2$,,Q3$,   ,P5$
  2198. 21980 PLAY B1$ ,C3$,C7$,C4E$,C2$,,P3$,P4$,P5$
  2199. 21990 PLAY B2E$,C3$,C7$,C4$ ,C2$,,Q3$,P4$,P5$
  2200. 22000 PLAY C3$,C7$,C4E$,C2$,,,P2$,R3$,P4$,P5$
  2201. 22010 PLAY C3$,C7$,C4$ ,C2$,,,Q2$,R3$,P4$,P5$
  2202. 22020 PLAY C3$,C7$,C4E$,C2$,,,P2$,R3$,P4$,P5$
  2203. 22030 PLAY C3$,C7$,C4$ ,C2$,,,Q2$,R3$,P4$,P5$
  2204. 22040 PLAY C3$,C7$,C2$,E1$,E2$,E3$,P2$,R3$,P4$,P5$
  2205. 22050 PLAY C3$,C7$,C2$,E1$,E2$,E3$,Q2$,R3$,P4$,P5$
  2206. 22060 PLAY C3$,C7$,C2$,E1$,E2$,E3$,P2$,R3$,P4$,P5$
  2207. 22070 PLAY C3$,C7$,C2$,E1$,E2$,E3$,S2$,S3$,S4$,S5$
  2208. 22080 PLAY B1$ ,C7$,C5$,E1$,E2$,E3$,P1$,P3$,P4$,P5$
  2209. 22090 PLAY B2$ ,C7$,C6$,E1$,E2$,E3$,P1$,Q3$,P4$,P5$
  2210. 22100 PLAY B1$ ,C7$,C5$,E1$,E2$,E3$,P1$,P3$,P4$,P5$
  2211. 22110 PLAY B2E$,C7$,C6$,E1$,E2$,E3$,S1$,S3$,S4$,S5$
  2212. 22120 PLAY C7$ ,C5E$,E1$ ,E2$,,,P1$,P4$
  2213. 22130 PLAY C7$ ,C6E$,E1$ ,E2$,,,S1$,S4$,BP3$
  2214. 22140 PLAY     ,C5E$,    ,E2$,,,P1$,P4$,P5$
  2215. 22150 PLAY A5L$,C6E$,A5R$,E2$,,,S1$,S4$,P5$
  2216. 22160 PLAY C5$,A1$ ,A2$ ,A3$ ,A4$
  2217. 22170 PLAY C6$,A1E$,A2E$,A3E$,A4E$
  2218. 22180 PLAY C5$,A1$ ,A2$ ,A3$ ,A4$
  2219. 22190 PLAY C6$,A1F$,A2F$,A3F$,A4F$
  2220. 22200 RETURN
  2221. 22210 '
  2222. 22220 '
  2223. 22230 *S_VIEW
  2224. 22240 ' VIEW   [ OCEAN BEAT MIX ]
  2225. 22250 VOICE COPY 17,A : VOICE 1,A  :  VOICE COPY 17,A : VOICE 2,A
  2226. 22260 '
  2227. 22270 A1$="@16V8O3L8 RD2D&D&D &DD2D&D&D "
  2228. 22280 D1$="@16V8O3L8 RRA2A&A &A&AA2A&A  "
  2229. 22290 A2$="@16V8O3L8 RD2D&DB &BD2D&D&D  "
  2230. 22300 A3$="@81V2O3L16Q2DD>D<DAA>A<AEE>E<EBB>B<BDD>D<DAA>A<AEE>E<E<BB>B<BQ8"
  2231. 22310 A4$="@81V2O4L16 Q2 (BB>B<<B>AA>A<<A>EE>E<<E>DD>D<<D>)  Q8"
  2232. 22320 A5$="@81V2O4L16Q2BB>B<BAA>A<AEE>E<EDD>D<D<BB>B<BAA>A<AEE>E<EDD>D<DQ8"
  2233. 22330 B1$="@16V8O2L2 ABAB"
  2234. 22340 C1$="@96V8O3L1 BE"
  2235. 22350 C2$="@96V8O3L1 DE"
  2236. 22360 C3$="@96V8O3L4 RRRD E2A2"
  2237. 22370 C4$="@16V3O4L8 BAEDEDEA BAEDEDED"
  2238. 22380 C5$="@16V3O3L4 AB>DE DED<B Q8"
  2239. 22390 C6$="@72V0O6L1 A&A "
  2240. 22400 E1$="@87V4O3L8 Q4 BBB[BB[B[B[B ]]]]>DDD[DD[D[D[D Q8"
  2241. 22410 E2$="@87V4O3L8 Q4>EEE[EE[E[E[E ]]]]<AAA[AA[A[A[A Q8"
  2242. 22420 E3$="@87V4O3L8 Q4 BBB[BB[B[B[B ]]]] AAA[AA[A[A[A Q8"
  2243. 22430 E4$="@87V4O3L8 Q4 EEE[EE[E[E[E ]]]] DDD[DD[D[D[D Q8"
  2244. 22440 '
  2245. 22450 P1$="@1V7O0L8  GRRR GGRG GGRG RGRR"
  2246. 22460 P2$="@5V2O3L16  RRRR ERRR RRRR ERRR  RRRR ERRR RERR ERRR"
  2247. 22470 P3$="@5V2O6L16  EREERERE ERERERE32E32E  EREERERE EREREREE "
  2248. 22480 P4$="@2V7O1L16  CRRC CRCR CRRC CRCR  CRRC CRCR CRCR RRRR "
  2249. 22490 P5$="@7V3O6L16  BBBB [BBBB [BBBB [BBBB BRBR BRBR BRRR BRRR"
  2250. 22500 P6$="@3V9O0L1   C"
  2251. 22510 '
  2252. 22520 '
  2253. 22530 PLAY A1$,D1$,B1$
  2254. 22540 PLAY A2$,D1$,B1$
  2255. 22550 PLAY A1$,D1$,B1$,C1$
  2256. 22560 PLAY A2$,D1$,B1$,C2$
  2257. 22570 PLAY A1$,D1$,B1$,C1$
  2258. 22580 PLAY A2$,D1$,B1$,C3$
  2259. 22590  PLAY A1$,D1$,B1$,C1$,C4$
  2260. 22600  PLAY A2$,D1$,B1$,C2$,C4$
  2261. 22610  PLAY A1$,D1$,B1$,C1$,C4$
  2262. 22620  PLAY    ,D1$,B1$,C3$,C4$
  2263. 22630  PLAY A1$,D1$,B1$,E1$,C4$
  2264. 22640  PLAY A2$,D1$,B1$,E2$,C4$
  2265. 22650  PLAY A1$,D1$,B1$,E3$,C4$
  2266. 22660  PLAY A2$,D1$,B1$,E4$,C4$
  2267. 22670 PLAY A1$,D1$,B1$,C5$,,,P1$,P2$,P3$,P4$
  2268. 22680 PLAY A2$,D1$,B1$,C5$,,,P1$,P2$,P3$,P4$
  2269. 22690 PLAY A1$,D1$,B1$,C5$,,,P1$,P2$,P3$,P4$
  2270. 22700 PLAY A2$,D1$,B1$,C5$,,,P1$,P2$,P3$,P4$
  2271. 22710 PLAY A1$,D1$,B1$,C5$,C1$,,P1$,P2$,P3$,P4$
  2272. 22720 PLAY A2$,D1$,B1$,C5$,C2$,,P1$,P2$,P3$,P4$
  2273. 22730 PLAY A1$,D1$,B1$,C5$,C1$,,P1$,P2$,P3$,P4$
  2274. 22740 PLAY A2$,D1$,B1$,C5$,C3$,,P1$,P2$,P3$,P4$
  2275. 22750  PLAY C6$,   ,,,,,P5$,P6$
  2276. 22760  PLAY C6$
  2277. 22770  PLAY C6$,A3$,,,,,P5$,P6$
  2278. 22780  PLAY C6$,A3$
  2279. 22790 PLAY A1$,D1$,B1$,A3$,C6$,,P1$,P2$,P3$,P4$
  2280. 22800 PLAY A2$,D1$,B1$,A3$,C6$,,P1$,P2$,P3$,P4$
  2281. 22810 PLAY A1$,D1$,B1$,A3$,C6$,,P1$,P2$,P3$,P4$
  2282. 22820 PLAY A2$,D1$,B1$,A3$,C6$,,P1$,P2$,P3$,P4$
  2283. 22830 PLAY A1$,D1$,B1$,A3$,A4$,,P1$,P2$,P3$,P4$
  2284. 22840 PLAY A2$,D1$,B1$,A3$,A5$,,P1$,P2$,P3$,P4$
  2285. 22850 PLAY A1$,D1$,B1$,A3$,A4$,,P1$,P2$,P3$,P4$
  2286. 22860 PLAY A2$,D1$,B1$,A3$,A5$,,P1$,P2$,P3$,P4$
  2287. 22870 PLAY ,,B1$,A3$,C1$,,P6$,P6$
  2288. 22880 PLAY ,,B1$,A3$,C2$,,P6$
  2289. 22890 PLAY ,,B1$,A3$,C1$,,P6$
  2290. 22900 PLAY ,,B1$,A3$,   ,,P6$
  2291. 22910 RETURN
  2292. 22920 '
  2293. 22930 '___________________________________________________________________________
  2294. 22940 '===FC8===
  2295. 22950 *S_29
  2296. 22960 '29 [2D MIX]
  2297. 22970 VOICE COPY 81,A  : VOICE 1,A  :  VOICE COPY 28,A : VOICE 2,A
  2298. 22980 VOICE COPY 103,A : VOICE 3,A  :  VOICE COPY 22,A : VOICE 4,A
  2299. 22990 '
  2300. 23000 A1L$="@1V1O4L8  A&A>E&E DC&C<B &B>C&C<B&B>C16<B16 BA"
  2301. 23010 A1R$="@1V1O4L8  E&E>C&C<BA&A G &G A&A G&G A16 G16 A16G16 E"
  2302. 23020 A2L$="@1V1O4L8  F&FA&A>C&CDC &C&C<B&B A&AB&B>"
  2303. 23030 A2R$="@1V1O4L8  C&CF&F A&ABA &A&A G&G F&FG&G "
  2304. 23040 A3L$="@1V1O4L8 >C&C&C<B&B&B&B&B>D&D&DC&C&C<B&B>"
  2305. 23050 A3R$="@1V1O4L8  A&A&A G&G&G&G&G B&B&BA&A&A G&G "
  2306. 23060 A4L$="@1V1O4L8  B>C<BA &A2&A1"
  2307. 23070 A4R$="@1V1O4L8  G A GE &E2&E1"
  2308. 23080 A5L$="@1V1O4L8  F&FA&A>C&CDC &C&C <B&B >C&C D&D"
  2309. 23090 A5R$="@1V1O4L8  C&CF&F A&ABA &A&A  G D  A E B&B"
  2310. 23100 A6L$="@1V1O4L8 >E&E&E D&D&D&D&D  F&F&FE&E&E D&D"
  2311. 23110 A6R$="@1V1O4L8 >C&C&C<B&B&B G B> D&D&DC&C&C<B&B "
  2312. 23120 A7L$="@1V1O4L8 >E1L4 E[E[E[E"
  2313. 23130 A7R$="@1V1O4L8 >C1L4 C[C[C[C"
  2314. 23140 A8L$="@85V4O4L16%L1 ERRRERREREER D RGR  E<E>ERER<E>EREE AD RGR %C"
  2315. 23150 A8R$="@85V4O4L16%R1 CRRRCRRCRCCR<B>RER  C<EA>RCR<A>CRCC<AB>RER %C"
  2316. 23160 A8E$="@85V4O4L16%L1 ERRRERREREER D RGR  EEEE[EEEE[EE[EE[GG[G>G %C"
  2317. 23170 A8F$="@85V4O4L16%R1 CRRRCRRCRCCR<B>RER  CCCC[CCCC[CC[CC[EE[E>E %C"
  2318. 23180                                                     '
  2319. 23190 D1L$="@1V1O4L8  A&A&AG&G&GE&E&E&E&E &E C&CG&G"
  2320. 23200 D1R$="@1V1O4L8  E&E&ED&D&DC&C&C&C&C<B&B>D&DA   "
  2321. 23210 D2L$="@1V1O4L8  B&B&B>C &C<BG&G &G2  C&C<B&B"
  2322. 23220 D2R$="@1V1O4L8  G&G&G A &A GE&E &E2 <A&A G&G "
  2323. 23230 D3L$="@1V1O4L8 <A&A4B&B4>C4 &C G&G&G E&EC&C "
  2324. 23240 D3R$="@1V1O4L8 <F&F4G&G4 A4 &A>C&CF &FD&DD  "
  2325. 23250 D4L$="@1V1O4L8  C&C&C<B&B2 >D&D4 G&G4B4 "
  2326. 23260 D4R$="@1V1O4L8 <A&A&A G&G2  B&B4>E&E4G4 "
  2327. 23270 D5L$="@1V1O4L8  C&C&C<B&B2  A4B4>C4D4"
  2328. 23280 D5R$="@1V1O4L8 <A&A&A G&G2  FCGD AEBF "
  2329. 23290 D6L$="@85V3O5L8  E2&E4G2&GE&E4C4"
  2330. 23300 D6R$="@85V3O5L8  RRRD2&D4E&E4D2 "
  2331. 23310 D7L$="@85V3O5L8 <B4&B B&B4&B E&E2&E4 B4"
  2332. 23320 D7R$="@85V3O5L8  R4C&C&C4<G&G&G2>C4&C4"
  2333. 23330 D8L$="@85V3O5L8 <B&B&B>C&C&C<B&B >D&D&DC&C&C<B&B"
  2334. 23340 D8R$="@85V3O5L8  R R R<A&A&A G&G &G&G&GA&A&A G&G"
  2335. 23350 D9L$="@1V0O4L8  A1&A2&A4 G4"
  2336. 23360 D9R$="@1V0O4L8  F1&F2&F4&FA "
  2337. 23370 D9L$="@1V0O4L8  A1&A2&A4 G4"
  2338. 23380 D9R$="@1V0O4L8  F1&F2&F4&FA "
  2339. 23390 D0L$="@1V0O4L8  B1 >D&D4C&C4<B4"
  2340. 23400 D0R$="@1V0O4L8  G1  B&B4A&A4 G4"
  2341. 23410                                                     '
  2342. 23420 H1L$="@3V2O4L8 A&A>C&C4C&C<A&  A>D&D<B4&BB4"
  2343. 23430 H1R$="@3V2O4L8 RB&B>D4&D<B&B>  E&EC&C4<A&A4"
  2344. 23440 H2L$="@3V2O4L8  A&A>C&C4C&C<A  &A>D&DG4&GE&E"
  2345. 23450 H2R$="@3V2O4L8  RB&B>D4&D<B&B  >E&EC&C4F&FD"
  2346. 23460 H3L$="@3V2O4L8 >E&EC&C4C&C   C4&C<A&A4>C&C&C"
  2347. 23470 H3R$="@3V2O4L8 >RD&DD4&D<B  &B4 B&BG4&GB&B"
  2348. 23480 H4L$="@3V2O4L8 >C&CC&C4<A&A>C4&CC&C4F&FD"
  2349. 23490 H4R$="@3V2O4L8 >RD&D<B4&BB&B4>D&DG4&GE&E"
  2350. 23500 H5L$="@3V2O4L8 >C1 <[[B&B4A&A4B4"
  2351. 23510 H5R$="@3V2O4L8  A1  [[G&G4F&F4G4"
  2352. 23520 H5E$="@3V2O4L8 >C1&C1"
  2353. 23530 H5F$="@3V2O4L8  A1&A1"
  2354. 23540 H6L$="@3V2O4L8 >C1  E&E&E D&D&DD&D"
  2355. 23550 H6R$="@3V2O4L8  G1 >C&C&C<B&B&BG&G"
  2356. 23560 '
  2357. 23570 C1$= "@85V5O2L16  (AR<A>R>ERAR<)3 AR>EG<ER>AR<  Q8"
  2358. 23580 C2$= "@85V5O2L16 >(CR<C>RFR>C<R)3 CRF>C<CR>F<R  Q8"
  2359. 23590 C3$= "@85V5O2L16  (GR<G>R>DRGR<)3 GR>DF<GR>GR<  Q8"
  2360. 23600 C4$= "@85V5O2L16  AR<A>R>ERAR<AR>EG<ER>AR<AR<A>R>E4<FR>CF<GR>G>DQ8"
  2361. 23610 E1$= "@85V1O4L16   ARRARRARR>E<ARGRAR  ARRAREAR>CE<ARGRER "
  2362. 23620 E1E$="@85V1O4L16   ARRARRARR>E<ARGRAR [ARRARRACDEFGAB>CR"
  2363. 23630 E2$= "@85V1O4L16   FFRFRRFRR>C<FRERFR  FRRFRCFRA>C<FRERAR "
  2364. 23640 E3$= "@85V1O4L16   GRRGRRGRR>D<GRFRGR  GRRGRDGRG>D<GRFRBR "
  2365. 23650 E4$= "@85V1O4L16   ARRARRARR>E<ARGRAR  ARRARRARF>C<FRGRBR "
  2366. 23660 E4E$="@85V1O4L16   ARRARRARR>E<ARGRAR  A1 "
  2367. 23670 F1L$="@1V0O4L16%L3Q1  E4E&E8F&F8F4D8&D<E> E8E&E8F<F>FF8F8D&D %CQ8"
  2368. 23680 F1R$="@1V0O4L16%R3Q1 <A4A&A8B&B8B4G8&G<A> A8A&A8B<B>BB8B8G&G %CQ8"
  2369. 23690 F1E$="@1V0O4L16%L3Q1  E4E&E8F&F8F4D8&D<E>Q3 (E8)4 <ERERER %CQ8"
  2370. 23700 F1F$="@1V0O4L16%R3Q1 <A4A&A8B&B8B4G8&G<A>Q3 (A8)4 <ARARAR %CQ8"
  2371. 23710 G1$ ="@81V4O4L16Q1 >(CC[CC)4 (C8C8[) (C4[) Q8"
  2372. 23720 G2$ ="@81V4O4L16Q1  (BB[BB)4 (B8B8[)  A4B4 Q8"
  2373. 23730 G3L$="@22V6O5L16Q3 (%L5EEEE%R5>E<EE>E<%L5EE>E<E%R5>>E<<EE E ) %CQ8"
  2374. 23740 G3R$="@22V6O5L16Q3 (%R5CCCC%L5>C<CC>C<%R5CC>CC %L5 >C<<CC>C<) %CQ8"
  2375. 23750 G4L$="@22V6O5L16Q3 (%L5DDDD%R5>D<DD>D<%L5DD>D<D%R5>>D<<DD D ) %CQ8"
  2376. 23760 G4R$="@22V6O5L16Q3<(%R5BBBB%L5>B<BB>B<%R5BB>BB %L5 >B<<BB>B<) %CQ8"
  2377. 23770 G5L$="@22V6O5L16Q3 (%L5CCCC%R5>C<CC>C<%L5CC>C<C%R5>>C<<CC C ) %CQ8"
  2378. 23780 G5R$="@22V6O5L16Q3<(%R5AAAA%L5>A<AA>A<%R5AA>AA %L5 >A<<AA>A<) %CQ8"
  2379. 23790 G6L$="@22V6O5L16Q3< %L5BBBB%R5>B<BB>B<%L5BB>B<B%R5>>B<<BB B   "
  2380. 23800 G6R$="@22V6O5L16Q3< %R5GGGG%L5>G<GG>G<%R5GG>GG %L5 >G<<GG>G<  "
  2381. 23810 G6L$=G6L$+" %L5AAAA%R5>B<BB>B<%L5>CC>C<C%R5>>D<<DD D  %CQ8 "
  2382. 23820 G6R$=G6R$+" %R5FFFF%L5>G<GG>G<%R5 AA>AA %L5 >B<<BB>B< %CQ8"
  2383. 23830 G7$ ="@85V0O3L16  A<A>AE>E<EA>EDE<A>EGEDE <A8AE>E8<A>EDE<A>EGEDE"
  2384. 23840 G7E$="@80V4O4L16  A<A>AE>E<EA>EDE<A>EGEDE <A8AE>E8<A>EDE<A>EGEDE"
  2385. 23850 G7F$="@103V1O4L16Q3 A<A>AE>E<EA>EDE<A>EGEDE <A8AE>E8<A>EDE<A>EGEDEQ8"
  2386. 23860 G8$ ="@85V0O3L16  G<G>GD>D<DG>DCD<G>DF<F>DC<G8GD>D8RDCD<G>DF8DC "
  2387. 23870 G8F$="@103V1O4L16Q3F<F>FCA8>C<BD>C<C>D8C<BD G8GD>D8RDCD<G>DF8DC   Q8"
  2388. 23880 G8G$="@103V1O4L16Q3F<F>FCA8>C<BD>C<C>D8C<BD G8GD>D8RDCD<G>D8(>D)3 Q8"
  2389. 23890 G9$ ="@85V0O3L16  F<F>FCA8>C<BD>C<C>D8C<BD F8FCA8>C<BD>C8D8C<B8 "
  2390. 23900 G0$ ="@85V0O3L16  G<G>GD>D<DG>DCD<G>DF<F>DC< (E<RA>)E8 GGDGBEB8 "
  2391. 23910 I1$ ="@85V2O4L16>CR<BR>CR<B>CRC<BR>CR<BR>CR<BR>CR<B>CRC<BR>CRDRQ8"
  2392. 23920 I2$ ="@85V2O4L16>ERDRERDEREDRERDR GRERDRGERDRGREDR          Q8"
  2393. 23930 I3$ ="@85V2O4L16>GRERDRGERDRGREDR <BR>CRGR<B>CRGR<B>RCGR    Q8"
  2394. 23940 I4$ ="@85V0O5L16 %L9R4ARRR %R9R4ARR<A> %L9R4ARR<A> %R9RR<A>RAR>A<R%C"
  2395. 23950 I5$ ="@85V0O5L16 RRRRERRR RR<E>RER>E<R RRRRERR<E> RR<E>RER>E<R "
  2396. 23960 I6$ ="@85V0O5L16 CRRRCRRR CRRRCRRC CRCRCRCC CCCCCC>C>C"
  2397. 23970 J1L$="@4V3O5L16 G2&G4&G8FG E2&E4&E8 D E"
  2398. 23980 J1R$="@4V3O5L16 E2&E4&E8DE C2&C4&C8<B>C"
  2399. 23990 J2L$="@4V3O5L8 C&C&C&C &C&C&C<B>C&C  <B>C&C GFE"
  2400. 24000 J2R$="@4V3O5L8<A&A&A&A &A&A&A G A&A   G A&A>EDC"
  2401. 24010 J3L$="@4V3O5L8 C&C&C&C &C&C&C<B>C&C  <B>C&C <B>CD"
  2402. 24020 J3R$="@4V3O5L8<A&A&A&A &A&A&A G A&A   G A&A  G AB"
  2403. 24030 J4L$="@4V3O5L8 ERERERER EREREGFE"
  2404. 24040 J4R$="@4V3O5L8 CRCRCRCR CRCRCEDC"
  2405. 24050 J5L$="@4V3O5L8 CRR<BRRRR ARBR>CRDR"
  2406. 24060 J5R$="@4V3O5L8<ARR G&G2 F4G4 A4B4 "
  2407. 24070 J6$ ="@4V4O4L16 Q8 BGAEBG>C<G> (CC<G>C) <BGAEBG>C<G> C<CGDGDB>D Q8"
  2408. 24080 J7$ ="@4V4O4L16>Q8 D<G>C<CBDAE (AAEA) >D<G>C<CBDAE  AEBDBD>C<G Q8"
  2409. 24090 J8$ ="@4V4O4L16>Q8 (GDD) (FCC)(E<AA>) (D<G>)C<C>(D<G>) E<A>EA Q8"
  2410. 24100 J9$ ="@4V4O4L16 Q8 (CEG>C EC<GE) (AEAD)(BGBE) Q8"
  2411. 24110 '
  2412. 24120 L1$= "@2V7O2L8   (A>A<A>A<)4"
  2413. 24130 L2$= "@2V7O2L8  >(C>C<C>C<)<(G>G<G>G<)"
  2414. 24140 L3$= "@2V7O2L8  >(C>C<C>C<)  D>D<D>D< E>E<E>E<"
  2415. 24150 L4$= "@2V7O2L16  A4>A8R<A8>A<A8>A8<A8 >C4>C8R<C8>D<D8>E8<E8"
  2416. 24160 L5$= "@2V7O2L16  A4>A8R<A8>A<A8>A8<A8 >C4>C8R<C8 G<G8>G8<G8"
  2417. 24170 B1$= "@2V7O3L16  A<AA>EA<A>EAEAAEAEA<A> A<A>EEAE<A>A<A>AA<A>AEA8"
  2418. 24180 B2$= "@2V7O3L16  F<FF>CF<F>CFCFFCFCF<F> F<F>CCFC<F>F<F>FF<F>F>CF8"
  2419. 24190 B3$= "@2V7O3L16  G<GG>DG<G>DGDGGDGDG<G> G<G>DDGD<G>G<G>GG<G>GDG8"
  2420. 24200 B4$= "@2V7O3L16  A<AA>EA<A>EAEAAEAEA<A> A<A>EEAE<A>A<F>FF<F>GDGD"
  2421. 24210 B5$= "@2V7O3L16  A<A>ERAREARAA<A>AEA<A> >CR<GC>CR<G>CRDD<G>E<B>E8"
  2422. 24220 B5E$="@2V7O3L16  A<A>ERAREARAA<A>AEA<A> V3>CRRRCRRCRDDR<GRGR "
  2423. 24230 B6$ ="@2V8O2L16  GA8GA8GA8GA8>C8<E8 GA8GA8GA8GA8>C4"
  2424. 24240 B7$ ="@2V8O2L16  G&G8G8<G>GD>D8<G>C8<FB8 G&G8G8<G>GD>D8<G>C8<F>E8"
  2425. 24250 B7E$="@2V8O2L16  G&G8G8<G>GD>D8<G>C8<FB8 <A8>A<AB8>B<B>C8>C<CD8>D<D"
  2426. 24260 B8$ ="@2V8O2L16  FFRCFRCFCFFCFRF8 CCFCFRCFCF>C<CFRF8"
  2427. 24270 B9$ ="@2V5O3L16  FRRFRCCRRCCRFRCR F<F>RFRCCRRCCRFRCR"
  2428. 24280 B0$ ="@2V5O3L16  GRRGRRGRDGRGRRGR GRRGRRGRDDGR>C<RBR"
  2429. 24290 B0E$="@2V5O3L16  GRRGRRGR<G#>G#RG#RRG#R ARRARRARDDGR>D<RGR"
  2430. 24300 B10$="@2V6O3L16  AREA<A>EAEDGG<G>GDG8 FRCFR<F>FCDGGRGDGR"
  2431. 24310 B11$="@2V8O2L16  AAA<A>A<A>>C<AEAGDE<A>G8 AAAEAE>C<AEAGD>E8<G8"
  2432. 24320 B12$="@2V8O2L16  F&F8CF8CFCFA<A>G8FC GGGDG8DG8G>C8<BE>D8"
  2433. 24330 '
  2434. 24340 P1$= "@1V10O0L16 GRRR RRGR RRGR RRGR  GRGR RRGR RRGR RRRR"
  2435. 24350 P2$= "@5V2 O3L16 RRRR CRRR RCRR CRRR  RRRR CRRG RGRR CRRR"
  2436. 24360 S2$= "@5V2 O3L16 RRRR CRRR RRRR RRRR  RRRR RRRR RRCR GRCR"
  2437. 24370 Q2$= "@5V2 O3L16 RRRR CRRR RCRR CRRR]]RRRR CRRR RCRR CRRR"
  2438. 24380 P3$= "@9V3 O5L16 BRBR RRBR BRBR BRBR  BRBR RRBR BRBR BRBB"
  2439. 24390 S3$= "@9V3 O5L16 BRBR RRBR RRRR RRBR  RRRR RRBR BRBR BRBB"
  2440. 24400 Q3$= "@9V3 O5L16 BRBR RRBR BRBR BRBR  BRBR CRRR RCRR CRRR"
  2441. 24410 P4$= "@9V2 O6L16 (BB]B[B BB]B[B) (BB32B32]B[B) (BB]B[B)"
  2442. 24420 S4$= "@9V2 O6L16  BB]B[B BB]B[B   B "
  2443. 24430 P5$= "@1V15O0L16 (GRRRGRRR)4"
  2444. 24440 S5$= "@1V15O0L16  G"
  2445. 24450 FP1$="@105V15O0L32 ((CRRR RRRR )4)"
  2446. 24460 FP2$="@105V15O0L32  C "
  2447. 24470 '
  2448. 24480 '
  2449. 24490 '
  2450. 24500 PLAY    ,,,   ,E1$,,P1$,P2$,P3$,P4$
  2451. 24510 PLAY    ,,,C2$,E2$,,S5$,P2$,P3$,S4$
  2452. 24520 PLAY B3$,,,   ,   ,,S5$,S2$,S3$,S4$
  2453. 24530 PLAY B4$,,,C4$,E4$,,P1$,Q2$,Q3$,S4$
  2454. 24540                                         '
  2455. 24550 PLAY B1$,A1L$,A1R$,C1$,E1$,,P5$,P2$,P3$,P4$
  2456. 24560 PLAY B2$,A2L$,A2R$,C2$,E2$,,P5$,P2$,P3$,P4$
  2457. 24570 PLAY B3$,A3L$,A3R$,C3$,E3$,,P5$,P2$,P3$,P4$
  2458. 24580 PLAY B4$,A4L$,A4R$,C4$,E4$,,P5$,P2$,P3$,P4$
  2459. 24590 PLAY B1$,A1L$,A1R$,C1$,E1$,,P5$,P2$,P3$,P4$
  2460. 24600 PLAY B2$,A5L$,A5R$,C2$,E2$,,P5$,P2$,P3$,P4$
  2461. 24610 PLAY B3$,A6L$,A6R$,C3$,E3$,,P5$,P2$,P3$,P4$
  2462. 24620 PLAY B4$,A7L$,A7R$,C4$,E4$,,P5$,S2$,S3$,P4$
  2463. 24630                                            '
  2464. 24640 PLAY B5$ ,E1$ ,A8L$,A8R$,F1L$,F1R$,P1$,P2$,P3$,P4$
  2465. 24650 PLAY B5$ ,E1$ ,A8L$,A8R$,F1L$,F1R$,P1$,P2$,P3$,P4$
  2466. 24660 PLAY B5$ ,E1$ ,A8L$,A8R$,F1L$,F1R$,P1$,P2$,P3$,P4$
  2467. 24670 PLAY B5E$,E1E$,A8E$,A8F$,F1E$,F1F$,S1$,S2$,S3$,S4$
  2468. 24680 '
  2469. 24690 PLAY B6$ ,D1L$,D1R$,    ,    ,G7$,P5$,P2$,P3$,P4$
  2470. 24700 PLAY B7$ ,D2L$,D2R$,    ,    ,G8$,P5$,Q2$,P3$,P4$
  2471. 24710 PLAY B8$ ,D3L$,D3R$,    ,    ,G9$,P5$,P2$,P3$,P4$
  2472. 24720 PLAY B7$ ,D4L$,D4R$,    ,    ,G0$,P5$,S2$,S3$,P4$
  2473. 24730 PLAY B6$ ,D1L$,D1R$,G3L$,G3R$,G7$,P5$,P2$,P3$,P4$
  2474. 24740 PLAY B7$ ,D2L$,D2R$,G4L$,G4R$,G8$,P5$,Q2$,P3$,P4$
  2475. 24750 PLAY B8$ ,D3L$,D3R$,G5L$,G5R$,G9$,P5$,P2$,P3$,P4$
  2476. 24760 PLAY B7E$,D5L$,D5R$,G6L$,G6R$,G0$,S5$,S2$,S3$,S4$
  2477. 24770 '
  2478. 24780 PLAY B9$ ,D6L$,D6R$,G1$,,,P1$,P2$,P3$,P4$
  2479. 24790 PLAY B0$ ,D7L$,D7R$,G2$,,,P1$,P2$,P3$,P4$
  2480. 24800 PLAY B9$ ,D6L$,D6R$,G1$,,,P1$,P2$,P3$,P4$
  2481. 24810 PLAY B0E$,D8L$,D8R$,G2$,,,P1$,Q2$,Q3$,P4$
  2482. 24820 PLAY B9$ ,D9L$,D9R$,G1$,,,P5$,P2$,P3$,P4$
  2483. 24830 PLAY B0$ ,D0L$,D0R$,G2$,,,S5$,S2$,S3$,S4$
  2484. 24840 '
  2485. 24850 PLAY B1$,A1L$,A1R$,C1$,E1$,,P5$,P2$,P3$,P4$
  2486. 24860 PLAY B2$,A2L$,A2R$,C2$,E2$,,P5$,P2$,P3$,P4$
  2487. 24870 PLAY B3$,A3L$,A3R$,C3$,E3$,,P5$,P2$,P3$,P4$
  2488. 24880 PLAY B4$,A4L$,A4R$,C4$,E4$,,P5$,P2$,P3$,P4$
  2489. 24890 PLAY B1$,A1L$,A1R$,C1$,E1$,,P5$,P2$,P3$,P4$
  2490. 24900 PLAY B2$,A5L$,A5R$,C2$,E2$,,P5$,P2$,P3$,P4$
  2491. 24910 PLAY B3$,A6L$,A6R$,C3$,E3$,,P5$,P2$,P3$,P4$
  2492. 24920 PLAY B4$,A7L$,A7R$,C4$,E4$,,P5$,S2$,S3$,P4$
  2493. 24930 '
  2494. 24940 '
  2495. 24950 PLAY B10$,H1L$,H1R$,,,,P1$,P2$,P3$,P4$
  2496. 24960 PLAY B10$,H2L$,H2R$,,,,P1$,P2$,Q3$,S4$
  2497. 24970 PLAY B10$,H3L$,H3R$,,,,P1$,P2$,P3$,P4$
  2498. 24980 PLAY B10$,H4L$,H4R$,,,,S1$,Q2$,Q3$,S4$
  2499. 24990 PLAY B10$,H5L$,H5R$,I1$,,,P1$,P2$,P3$,P4$
  2500. 25000 PLAY B10$,H6L$,H6R$,I2$,,,P1$,P2$,Q3$,S4$
  2501. 25010 PLAY B10$,H5L$,H5R$,I1$,,,P1$,P2$,P3$,P4$
  2502. 25020 PLAY B10$,H6L$,H6R$,I3$,,,S1$,Q2$,Q3$,P4$
  2503. 25030 PLAY B11$,H5E$,H5F$,I4$
  2504. 25040 PLAY B11$,    ,    ,I4$,,,   ,   ,S4$
  2505. 25050 PLAY B11$,G7F$,    ,I4$,,,P2$,P3$,P4$
  2506. 25060 PLAY B11$,G7F$,    ,I4$,,,Q2$,Q3$,S4$
  2507. 25070 PLAY B11$,G7F$,G7E$,I4$,I5$,   ,P5$,P2$,P3$,P4$
  2508. 25080 PLAY B11$,G7F$,G7E$,I4$,I5$,   ,P5$,P2$,Q3$,S4$
  2509. 25090 PLAY B12$,G8F$,G7E$,I4$,I5$,   ,P1$,P2$,P3$,P4$
  2510. 25100 PLAY B12$,G8G$,G7E$,I4$,I5$,I6$,S1$,S2$,S3$,S4$
  2511. 25110 '
  2512. 25120 PLAY B6$ ,D1L$,D1R$,    ,    ,G7$,P5$,P2$,P3$,P4$
  2513. 25130 PLAY B7$ ,D2L$,D2R$,    ,    ,G8$,P5$,Q2$,P3$,P4$
  2514. 25140 PLAY B8$ ,D3L$,D3R$,    ,    ,G9$,P5$,P2$,P3$,P4$
  2515. 25150 PLAY B7$ ,D4L$,D4R$,    ,    ,G0$,P5$,S2$,S3$,P4$
  2516. 25160 PLAY B6$ ,D1L$,D1R$,G3L$,G3R$,G7$,P5$,P2$,P3$,P4$
  2517. 25170 PLAY B7$ ,D2L$,D2R$,G4L$,G4R$,G8$,P5$,Q2$,P3$,P4$
  2518. 25180 PLAY B8$ ,D3L$,D3R$,G5L$,G5R$,G9$,P5$,P2$,P3$,P4$
  2519. 25190 PLAY B7E$,D5L$,D5R$,G6L$,G6R$,G0$,S5$,S2$,S3$,S4$
  2520. 25200 '
  2521. 25210 PLAY B9$ ,D6L$,D6R$,G1$,J1L$,J1R$,P1$,P2$,P3$,P4$
  2522. 25220 PLAY B0$ ,D7L$,D7R$,G2$,J2L$,J2R$,S5$,S2$,S3$,S4$
  2523. 25230 PLAY B9$ ,D6L$,D6R$,G1$,J1L$,J1R$,P1$,P2$,P3$,P4$
  2524. 25240 PLAY B0E$,D8L$,D8R$,G2$,J3L$,J3R$,S5$,Q2$,Q3$,S4$
  2525. 25250 PLAY B9$ ,D9L$,D9R$,G1$,J4L$,J4R$,P5$,P2$,P3$,P4$
  2526. 25260 PLAY B0$ ,D0L$,D0R$,G2$,J5L$,J5R$,S5$,S2$,S3$,S4$
  2527. 25270 '
  2528. 25280 PLAY B1$,A1L$,A1R$,C1$,E1$,J6$,P5$,P2$,P3$,P4$
  2529. 25290 PLAY B2$,A2L$,A2R$,C2$,E2$,J7$,P5$,P2$,P3$,P4$
  2530. 25300 PLAY B3$,A3L$,A3R$,C3$,E3$,J8$,P5$,P2$,P3$,P4$
  2531. 25310 PLAY B4$,A4L$,A4R$,C4$,E4$,J9$,P5$,P2$,P3$,P4$
  2532. 25320 PLAY B1$,A1L$,A1R$,C1$,E1$,J6$,P5$,P2$,P3$,P4$
  2533. 25330 PLAY B2$,A5L$,A5R$,C2$,E2$,J7$,P5$,P2$,P3$,P4$
  2534. 25340 PLAY B3$,A6L$,A6R$,C3$,E3$,J8$,P5$,P2$,P3$,P4$
  2535. 25350 PLAY B4$,A7L$,A7R$,C4$,E4$,J9$,P5$,S2$,S3$,P4$
  2536. 25360 '
  2537. 25370 PLAY B1$,FP1$,I4$,C1$,E1$,J6$
  2538. 25380 PLAY B2$,FP1$,I4$,C2$,E2$,J7$
  2539. 25390 PLAY B3$,FP1$,I4$,C3$,E3$,J8$
  2540. 25400 PLAY B4$,FP1$,I4$,C4$,E4$,J9$
  2541. 25410 PLAY    ,FP1$,I4$,C1$,E1$,J6$
  2542. 25420 PLAY    ,FP1$,I4$,C2$,E2$,J7$
  2543. 25430 PLAY    ,FP1$,I4$,C3$,E3$,J8$
  2544. 25440 PLAY    ,FP1$,I4$,C4$,E4$,J9$
  2545. 25450 PLAY    ,FP1$,I4$,   ,E1$,J6$
  2546. 25460 PLAY    ,FP1$,I4$,   ,E2$,J7$
  2547. 25470 PLAY    ,FP1$,I4$,   ,E3$,J8$
  2548. 25480 PLAY    ,FP2$,I4$,   ,E4E$
  2549. 25490 RETURN
  2550. 25500 '
  2551. 25510 '
  2552. 25520 *S_37
  2553. 25530 'CYPRESS SONG   [ RADIO 6 MIX ]
  2554. 25540 VOICE COPY 108,A : VOICE 1,A  :  VOICE COPY 28,A : VOICE 2,A
  2555. 25550 '
  2556. 25560 A1L$="@1V4O3L8Q6  G4G4F#F#4E2 @77Q2> EE4F#4V3 Q8"
  2557. 25570 A1R$="@1V3O3L8Q8  E4E4D D4 C2 @77Q3> CC4D4 V2 Q8"
  2558. 25580 A2L$="@1V4O3L8Q6  G4G4F#F#4A2 @77Q2> AE4F#4 Q8"
  2559. 25590 A2R$="@1V3O3L8Q8  E4E4D D4 E2 @77Q3> EC4D4  Q8"
  2560. 25600 A3L$="@1V4O3L8Q6  G4G4F#F#4E REER L16 [[AGE8 D8<G8  Q8"
  2561. 25610 A3R$="@1V3O3L8Q8  E4E4D D4 C RRCR L16 [[EDC8<A4   Q8"
  2562. 25620 A4L$="@1V3O3L16Q6 A8A8A8AA8AA8ARB8>C2<B8 <BR>DR<B Q8"
  2563. 25630 A4R$="@1V2O3L16Q8 F8F8F8FF8FF8FRG8 A2 G8 <GR BR G  Q8"
  2564. 25640 A5L$="@1V3O4L8Q6  E2&E4<A>C            E16 DC16D2 <A>C  Q8"
  2565. 25650 A5R$="@1V2O4L8Q8 <A&A16>C16<A&A&A4 EA  B16 AG16A2  E G  Q8"
  2566. 25660 A6L$="@1V3O4L8Q6  E16 DC16D2 <A>C L16 Q3 <A4  A8RA8<A>ARA4  Q8"
  2567. 25670 A6R$="@1V2O4L8Q8  C16<BA16B2  E A L16 Q5  EEE8E8RE8 D E8E4 Q8"
  2568. 25680 A6E$="@1V3O4L8Q6  E16 DC16D2 <A>C L16 <AAA8A8RA8 E A8A4 Q8"
  2569. 25690 A6F$="@1V2O4L8Q8  C16<BA16B2  E A L16 >A1               Q8"
  2570. 25700 A7L$="@1V3O4L8Q6  A4G>C4<BAE  GARA &A4  Q8"
  2571. 25710 A7R$="@1V2O4L8Q8  E4D G4 GE<B>DERE &E4  Q8"
  2572. 25720 A8L$="@1V3O4L8Q6  G&G4 E&E4 G4 C4&CE &E2    Q8"
  2573. 25730 A8R$="@1V2O4L8Q8  D&D4<B&B4>D4<G4 GB &B BBB Q8"
  2574. 25740 A9L$="@1V3O4L16Q6 C8<A>D8<A>D#8<A>E8<A>D8C8 <A1 Q8"
  2575. 25750 A9R$="@1V2O4L16Q8 G8 E A8 E A#8 E B8 E A8G8  E1 Q8"
  2576. 25760 '
  2577. 25770 F1L$="@27V4O3L16 (A&A8G&G8A8>C&C8<A&A8G8) "
  2578. 25780 F1R$="@77V0O3L16 (GAR>D8RCR<)3 GRGRGA>C8 "
  2579. 25790 F2L$="@27V4O3L16  A&A8G&G8A8>C&C8<A&A8G8 >D&D8C&C8<A8G&G8A&A8>C8"
  2580. 25800 F2R$="@77V0O3L16 (GAR>D8RCR<)3 GRGREGE8 "
  2581. 25810 F2E$="@27V4O3L16  F4F8RFRFF8E8F8 G8G8G8>C<G8BG8>D8<B8 "
  2582. 25820 F3$ ="@81V0O4L8   A4>C4<A>D4<A A4>C4<A>D4<G "
  2583. 25830 F4$ ="@81V0O4L8   A4>C4<A>D4<A A4>C4<G E4 G "
  2584. 25840 F4E$="@81V0O4L16 >C<F8>D<F8>C<F8BF8 A8B8>C4&C4<B4 "
  2585. 25850 F5$ ="@88V0O5L16 ER<AR>CR<A>DRC<AR>DRCR ER<AR>CR<A>DRC<ARGRAR Q8"
  2586. 25860 F6$ ="@88V0O5L16 AE8GD8EC8D<B8A8>C8 AE8GD8EC8D<B8A8>E8   Q8"
  2587. 25870 F7$ ="@88V0O5L16 A&A8G&G8E&E8D8&DC8D8 A&A8G&G8E&E8D#8&D#D8G8"
  2588. 25880 F8$ ="@88V0O5L16 A2&A4&A8>CR  C4&C8<AGA4 E8G8 "
  2589. 25890 F9$ ="@88V0O5L16 E&E8C&C8D8E&E8D&D8C8 Q8<A1"
  2590. 25900 F0$ ="@20V0O4L16 ERER CRD<A RARG AR>CD ERER CRD<A RAR>C G8E8 Q8"
  2591. 25910 F0E$="@20V0O4L16 ERER CRD<A RARG AR>CD ERER CRD<A RARG A4 Q8"
  2592. 25920 '
  2593. 25930 C1$= "@82V3O0L16 (CR>C<C>C<R(>C<CR)>CR<CR)"
  2594. 25940 C2$= "@79V6O0L16Q1 (>C<CCC >C<CC>C< >C<CC>C< C>C<C>C< ) Q8"
  2595. 25950 C2S$="@79V6O0L16Q1  >C<CCC >C<CC>C< >C<CC>C< C>C<C>CC   Q8"
  2596. 25960 C3$= "@81V7O1L16Q1 (>C<CCC)3>C<C>C<C (>C<CCC)>C<RR>C C<R>C<R Q8"
  2597. 25970 C3S$="@81V7O1L16Q1 (>C<CCC)3>C<C>C<C >C  Q8"
  2598. 25980 C4$= "@117V0O4L16 Q5(A<ARRERAE> A<EA>C>CR<AE) Q8"
  2599. 25990 C4E$="@117V0O4L16   R1 A<A  Q8"
  2600. 26000 C4F$="@117V0O4L16  A<ARR RRRR RRRR RRAR  >A<ARE RRRR RRRR REAR Q8"
  2601. 26010 C4G$="@117V0O4L16  >A<A<AR RRER RRAR RRAR >A<ARE RRRR RRAR REAR Q8"
  2602. 26020 C4H$="@117V0O4L16  <ER>>A<R RRAR<RRRC ERAR E>E<RA>ARC>C<RE>ERDR<A Q8"
  2603. 26030 C5$= "@117V0O3L16 Q3(GA<ECAE>ER)3 GA<EA>>ER<AE Q8"
  2604. 26040 C6$= "@79V5O0L16   (Q1CRQ6CRQ3CCRC)3 Q1CRQ6CRQ3CCQ8C "
  2605. 26050 C6E$="@79V5O0L16   (Q1CRQ6CRQ3CCRC)3 Q1RCCR @80Q8 >C8 <@79Q3CR Q8"
  2606. 26060 C6F$="@79V5O0L16   (Q1CRQ6CRQ3CCRC)3 Q1RCCR @92Q8 >C8 <@79Q3CR Q8"
  2607. 26070 C6G$="@79V5O0L16   (Q1CRQ6CRQ3CCRC)3 Q1RCCR @54Q8 >C8 <@79Q3CR Q8"
  2608. 26080 C7$ ="@105V6O2L16  Q1(A<A>EG<G>D>C<C)3 <G>DDRRRE<E> Q8"
  2609. 26090 C7E$="@105V6O2L16  Q1(A<A>EG<G>D>C<C)3 <G>DDR @102V3O3 Q8 A1&A1 "
  2610. 26100 G1$ ="@88V3O5L16 Q2 ((GA>C<))4 (GA>C<) DE Q8"
  2611. 26110 G2$ ="@88V3O5L16 Q2 (GA>C<)4 GAEG (GA>C<)4 GA>GG Q8"
  2612. 26120 G3$ ="@88V3O5L16 Q2  >C<AGAGEGEDEDC<A>CDE >C<AGAGEGEDEDCDC<AG Q8"
  2613. 26130 G4$ ="@88V3O5L16 Q2   AERGRDERRCCRCRDR AERGDRECRD<A>RGRER Q8"
  2614. 26140 G5$ ="@69V0O5L16  (AGRED#RDCR<GAR>CRDR)  Q8"
  2615. 26150 G5G$="@69V0O5L16  (AGR)4AGRE  (AGR)4>C8C8  Q8"
  2616. 26160 G5E$="@69V3O5L16 [[<(A>C<R)4>D#8D8 ]] AGRED#RDCR<GAR>CRDR "
  2617. 26170 G5F$="@69V3O5L16 [[<(A>C<R)4>D#8D8 <(A>C<R)4 A>C<RA  Q8"
  2618. 26180 G6$ ="@69V3O5L16  >C<F8>D<F8>C<F8BF8 A8B8>C4&C4<B4 Q8"
  2619. 26190 G7$ ="@77V3O4L16Q6  A4>C&C8D8ED8C8<A8 A4>C&C8D8ED8C8<G8 Q8"
  2620. 26200 G7F$="@77V0O3L16Q6  A4>C&C8D8ED8C8<A8 A4>C&C8D8ED8C8<G8 Q8"
  2621. 26210 G7E$="@85V0O5L16    GRAR RRGR RRRR >A<RRR   GRAR RRGR RRRR >G<RRR"
  2622. 26220 G8$ ="@77V3O4L16Q6 >E4D&D8C8DC8<A8G8  A4>C&C8<A8GA8A4   Q8"
  2623. 26230 G8F$="@77V0O3L16Q6 >E4D&D8C8DC8<A8G8  A4>C&C8<A8GA8A4   Q8"
  2624. 26240 G8E$="@85V0O5L16    GRAR RRGR RRRR >E<RRR   GRAR RRGR RRER >C<RGR"
  2625. 26250 G9L$="@17V0O4L16Q2 (<A8>ERGA8G)3 <A>RG#32A&A32 GE8 D# Q8"
  2626. 26260 G9R$="@17V0O4L16Q8 (<E8>CRDE8D)3 <E8>D#32E&E32 DC8<A# Q8"
  2627. 26270 G0L$="@17V0O4L16Q2<A8>ERGA8G<A>RERGG#32AR32G<A>RERGARG<A>RARGERGQ8"
  2628. 26280 G0R$="@17V0O4L16Q8<E8>CRDE8D<E>RCRDD#32ER32D<E>RCRDERD<E>RERDCRDQ8"
  2629. 26290 G0E$="@17V0O4L16Q2<A8>ERGA8G<A>RERGARG<A>RERGARG RRARA4 Q8"
  2630. 26300 G0F$="@17V0O4L16Q8<E8>CRDE8D<E>RCRDERD<E>RCRDERD RRERE4 Q8"
  2631. 26310 E1L$="@108V4O3L16Q6 A8>C<A>C<A8G8>DD8C8<G8 A8>C<A>C<A8G8>DD8<E8G8 Q8"
  2632. 26320 E1R$="@108V3O3L16   E8 G E G E8D8 AA8G8 D8 E8 G E G E8D8 AA8<B8>D8  "
  2633. 26330 E2L$="@108V4O3L16Q6 A8>C<A>C<A8G8>DD8C8<G8 A8>C<A>C<A8G8GG8>E8<G8 Q8"
  2634. 26340 E2R$="@108V3O3L16   E8 G E G E8D8 AA8G8 D8 E8 G E G E8D8DD8 B8 E8  "
  2635. 26350 E3L$="@108V4O3L16Q6 A8>C<A>C<A8G8>DD8C8<G8 A8>C<A>C<A8>D8DD8E8<G8 Q8"
  2636. 26360 E3R$="@108V3O3L16   E8 G E G E8D8 AA8G8 D8 E8 G E G E8 A8AA8B8 E8   "
  2637. 26370 E3E$="@108V4O3L16Q6 A8>C<A>C<A8G8>DD8C8<G8 AA8RARRARGA8A1  Q8"
  2638. 26380 E3F$="@108V3O3L16   E8 G E G E8D8 AA8G8 D8 E(E&E8)E8DE8E4  "
  2639. 26390 E4L$="@81V4O4L16%L1  >D8C8<E8>DC8<E8>D8C<E8>E8D8<A8>ED8<A8>E8D<A8%C"
  2640. 26400 E4R$="@81V2O4L16%R1R >D8C8<E8>DC8<E8>D8C<E8>E8D8<A8>ED8<A8>E8D<A %C"
  2641. 26410 E5L$="@81V4O4L16%L1  >C8<B8>D8C<B8>D8C8<B>G8 E8F8D8EC8D<B8>C8<A8 %C"
  2642. 26420 E5R$="@81V2O4L16%R1R >C8<B8>D8C<B8>D8C8<B>G8 E8F8D8EC8D<B8>C8<A  %C"
  2643. 26430 E6L$="@81V4O4L16%L1  >C8<B8>D8C<B8>G8FEDC<B  AARRARRARGARARRR    %C"
  2644. 26440 E6R$="@81V2O4L16%R1R >C8<B8>D8C<B8>G8FEDC<B  AARRARRARGARARR     %C"
  2645. 26450 '
  2646. 26460 B0$= "@28V6O2L16Q7  ARRRRRRRRRRR>C8    RRDR RRRR RRC4<G8   Q8"
  2647. 26470 B1$= "@28V6O2L16Q7  ARRRA&A8ARAG8A8>C8 DRRRD&D8DRED8C8<G8  Q8"
  2648. 26480 B2$= "@28V6O2L16Q7  ARRRA&A8ARAG8A8>C8 DRRRD&D8DRED8G8 E8  Q8"
  2649. 26490 B2E$="@28V6O2L16Q8  A1                                     Q8"
  2650. 26500 B3$ ="@28V6O3L16Q7  ARRRA8RARA<A8>E8G8 ARRRA8RARA<A8>>C8<G8 Q8"
  2651. 26510 B4$ ="@28V6O3L16Q7  ARRRA8RARA<A8>E8G8 AAARA8AA8AARA8AR     Q8"
  2652. 26520 B5$ ="@28V6O3L16Q5  FF<RF>F8RFRFF<E>E8FR GRRRG8RGR>C<G8B8>D8 Q8"
  2653. 26530 B6$ ="@28V6O3L16Q7 (<A>A8)4<A8>A8 >(<C>C8)4<C8>C8"
  2654. 26540 B7$ ="@28V6O3L16Q7 (<G>G8)4<G8>G8  (<A>A8)4<A8>A8"
  2655. 26550 B8$ ="@28V6O3L16Q7 A32<A32>AA8A8EA8<A>A8AEA8 F8F8F8RF8<F>F8FCF8 Q8"
  2656. 26560 B9$ ="@28V6O3L16Q7 G4G8RG8DG8C8G8   C4 C8&C  E8EE8DRE8    Q8"
  2657. 26570 B9E$="@28V6O3L16Q7 G2&G4&G8GR ARR<A>A8RARAA8A4    Q8"
  2658. 26580 B11$="@28V6O3L16Q7 DDRRD1   Q8"
  2659. 26590 B12$="@28V6O3L16Q7 A4A8<A>AEGA<A>AEA8 F8F8F8CF8>DC8<B8>C8   Q8"
  2660. 26600 B13$="@28V6O3L16Q7(G8&G)3>D<G8>C8<B8  A4A&A8ARGA8A8A8   Q8"
  2661. 26610 B14$="@28V6O3L16Q7(G8&G)3>D<G8>C8<B8  A(A&A8)ARGA8A1   Q8"
  2662. 26620 '
  2663. 26630 P1$= "@1V10O1L16  CRRCRRRC RRCR RRCR  CRRCRRRC RRCR RRRR"
  2664. 26640 S1$= "@1V10O1L16  CRRCRRRC RRCR RRCR  CRRRRRRR RRRC CRCR"
  2665. 26650 E1$= "@1V10O0L16  GGRRGRRR RRRR RRRR  GRRRRRRR RRRG GRGR "
  2666. 26660 T1$= "@1V10O1L16  CRRCRRRC RRCR RRCR  CRRCRRRC RRRR RRRR"
  2667. 26670 P2$= "@9V6 O3L16  RRRRGRRR RRRR GRRR  RRRRGRRR RRRR GR[[[GG"
  2668. 26680 Q2$= "@9V6 O3L16  RRRRGRRR R<G>RR GRRR  RR<G>RGRR<G RGG>R [[CRRR"
  2669. 26690 R2$= "@9V6 O3L16  RRRRGRRR R<G>RR GRRR <RRCRRCRRCRRCCRCR "
  2670. 26700 T2$= "@9V6 O3L16  RRRRGRRR RRRR GRRR  RRRRGRRR RRRR E4"
  2671. 26710 S2$= "@9V6 O3L16  RRRRGRRR RRRR GRRR  RRRRG"
  2672. 26720 P3$= "@5V2 O5L16  RRCRRRCR RCRR RRRR  RRCRRRCR RCRR RRRR"
  2673. 26730 S3$= "@5V2 O5L16  RRCRRRCR RCRR RRRR  RRC"
  2674. 26740 T3$= "@5V2 O5L16  RRCRRRCR RCRR RRRR  RRCRRRCR RBBR RRRR"
  2675. 26750 P4$= "@9V2 O6L16 (BB]B[B) BB32B32]B[B BB]A[A (BB]B[B BB]G[G )"
  2676. 26760 S4$= "@9V2 O6L16 (BB]B[B) BB32B32]B[B BB]A[A  BB"
  2677. 26770 T4$= "@7V2 O8L8   RCRCRCRC RCRCRRRC"
  2678. 26780 BP1$="@6V0 O7L16 (BB]B[B BB]B[B ]) (BB]B[B ]) (BB ] ]B[B ]) "
  2679. 26790 BP2$="@9V5 O2L16  R1R2 RRCR CRCR"
  2680. 26800 P5$= "@1V10O1L16 (CRRRCRRR)4"
  2681. 26810 '
  2682. 26820 '
  2683. 26830 PLAY C1$,C2$
  2684. 26840 PLAY C1$,C2$
  2685. 26850 PLAY C1$,C2$ ,C3S$
  2686. 26860 PLAY C1$,C2S$,C3S$
  2687. 26870 PLAY C1$,C2$,C3$ ,B0$,C4E$
  2688. 26880 PLAY C1$,C2$,C3$ ,B0$,C4F$
  2689. 26890 PLAY C1$,C2$,C3$ ,B0$,C4G$
  2690. 26900 PLAY C1$,C2$,C3S$,B0$,C4H$,,BP2$
  2691. 26910 PLAY C1$,C2$,C3$ ,B0$,C4$,,P1$,P2$,P3$
  2692. 26920 PLAY C1$,C2$,C3$ ,B0$,C4$,,P1$,P2$,P3$
  2693. 26930 PLAY C1$,C2$,C3$ ,B0$,C4$,,P1$,P2$,P3$
  2694. 26940 PLAY C1$,C2$,C3S$,B0$,C4$,,S1$,R2$,P3$,BP1$
  2695. 26950 PLAY C1$,C2$,C3$ ,B1$,C4$,C5$,P1$,P2$,P3$,P4$
  2696. 26960 PLAY C1$,C2$,C3$ ,B1$,C4$,C5$,P1$,P2$,P3$,P4$
  2697. 26970 PLAY C1$,C2$,C3$ ,B1$,C4$,C5$,P1$,P2$,P3$,P4$
  2698. 26980 PLAY C1$,C2$,C3$ ,B2$,C4$,C5$,P1$,Q2$,P3$,P4$
  2699. 26990 PLAY B2E$,F0$ ,C2$,C4E$,C4$,C5$,P1$,P2$,P3$,P4$
  2700. 27000 PLAY     ,F0E$,C2$,C4F$,C4$,C5$,P1$,P2$,P3$,P4$
  2701. 27010 PLAY F1L$,F0$ ,C2$,C4G$,C4$,C5$,P1$,P2$,P3$,P4$
  2702. 27020 PLAY F2L$,F0E$,C2$,C4H$,C4$,C5$,S1$,S2$,S3$,S4$
  2703. 27030 '
  2704. 27040 PLAY F1L$,F1R$,B1$,,,,P1$,P2$,P3$
  2705. 27050 PLAY F2L$,F2R$,B1$,,,,P1$,P2$,P3$
  2706. 27060 PLAY F1L$,F1R$,B1$,,,,P1$,P2$,P3$
  2707. 27070 PLAY F2L$,F2R$,B1$,,,,S1$,S2$,S3$,BP1$
  2708. 27080 PLAY F1R$,C6$,B3$,A1L$,A1R$,,P1$,P2$,P3$,P4$
  2709. 27090 PLAY F2R$,C6$,B4$,A2L$,A2R$,,P1$,P2$,P3$,P4$
  2710. 27100 PLAY F1R$,C6$,B3$,A1L$,A1R$,,P1$,P2$,P3$,P4$
  2711. 27110 PLAY F2R$,C6$,B4$,A3L$,A3R$,,P1$,P2$,P3$,P4$
  2712. 27120 PLAY F2E$,C6$,B5$,A4L$,A4R$,,E1$,R2$,BP1$
  2713. 27130 PLAY F1R$,C6$,B3$,A1L$,A1R$,F3$,P1$,P2$,P3$,P4$
  2714. 27140 PLAY F2R$,C6$,B4$,A2L$,A2R$,F4$,P1$,P2$,P3$,P4$
  2715. 27150 PLAY F1R$,C6$,B3$,A1L$,A1R$,F3$,P1$,P2$,P3$,P4$
  2716. 27160 PLAY F2R$,C6$,B4$,A3L$,A3R$,F4$,P1$,P2$,P3$,P4$
  2717. 27170 PLAY F2E$,C6$,B5$ ,A4L$,A4R$,F4E$,E1$,R2$,BP1$
  2718. 27180 PLAY F1R$,C6$,B6$ ,A5L$,A5R$,F5$,P1$,P2$,P3$,P4$
  2719. 27190 PLAY F2R$,C6$,B7$ ,A6L$,A6R$,F6$,P1$,P2$,P3$,P4$
  2720. 27200 PLAY F1R$,C6$,B6$ ,A5L$,A5R$,F5$,P1$,P2$,P3$,P4$
  2721. 27210 PLAY F2R$,C6$,B7$ ,A6E$,A6F$,F6$,P1$,Q2$,P3$,P4$,BP1$
  2722. 27220 PLAY F1R$,C6$,B8$ ,A7L$,A7R$,F7$,P1$,P2$,P3$,P4$
  2723. 27230 PLAY F2R$,C6$,B9$ ,A8L$,A8R$,F7$,P1$,P2$,P3$,P4$
  2724. 27240 PLAY F1R$,C6$,B8$ ,A7L$,A7R$,F8$,P1$,P2$,P3$,P4$
  2725. 27250 PLAY F2R$,C6$,B9E$,A9L$,A9R$,F9$,P1$,R2$,P3$,P4$,BP1$,BP2$
  2726. 27260 PLAY ,,,C6E$,   ,,T1$,T2$,T3$,T4$
  2727. 27270 PLAY ,,,C6F$,   ,,T1$,T2$,T3$,T4$
  2728. 27280 PLAY ,,,C6E$,B0$,,T1$,T2$,T3$,T4$
  2729. 27290 PLAY ,,,C6G$,B0$,,T1$,R2$,T3$,T4$,BP2$
  2730. 27300 PLAY F1L$,C7$,B1$,C6$,,,P1$,P2$,P3$,T4$
  2731. 27310 PLAY F2L$,C7$,B1$,C6$,,,P1$,P2$,P3$,T4$
  2732. 27320 PLAY F1L$,C7$,B1$,C6$,,,P1$,P2$,P3$,T4$
  2733. 27330 PLAY F2L$,C7$,B1$,C6$,,,S1$,S2$,S3$,T4$
  2734. 27340 PLAY F1L$,C7$,B1$,C6$,G1$,,P1$,P2$,P3$,T4$
  2735. 27350 PLAY F2L$,C7$,B1$,C6$,G2$,,P1$,P2$,P3$,T4$
  2736. 27360 PLAY F1L$,C7$,B1$,C6$,G3$,,P1$,P2$,P3$,T4$
  2737. 27370 PLAY F2L$,C7$,B1$,C6$,G4$,,P1$,Q2$,P3$,T4$
  2738. 27380 PLAY F1L$,C7$,B1$,C6$,G1$,G5$ ,P1$,P2$,P3$,P4$
  2739. 27390 PLAY F2L$,C7$,B1$,C6$,G2$,G5$ ,P1$,P2$,P3$,P4$
  2740. 27400 PLAY F1L$,C7$,B1$,C6$,G3$,G5$ ,P1$,P2$,P3$,P4$
  2741. 27410 PLAY F2L$,C7$,B1$,C6$,G4$,G5G$,P1$,R2$,P3$,P4$,BP1$
  2742. 27420 PLAY F1R$,C6$,B3$,A1L$,A1R$,G5E$,P1$,P2$,P3$,P4$
  2743. 27430 PLAY F2R$,C6$,B4$,A2L$,A2R$,G5E$,P1$,P2$,P3$,P4$
  2744. 27440 PLAY F1R$,C6$,B3$,A1L$,A1R$,G5E$,P1$,P2$,P3$,P4$
  2745. 27450 PLAY F2R$,C6$,B4$,A3L$,A3R$,G5F$,P1$,P2$,P3$,P4$
  2746. 27460 PLAY F2E$,C6$,B5$,A4L$,A4R$,G6$,E1$,R2$,BP1$
  2747. 27470 PLAY G7$,C7$,B6$,    ,,,S1$,P2$,P3$
  2748. 27480 PLAY G8$,C7$,B7$,    ,,,S1$,S2$,S3$
  2749. 27490 PLAY G7$,C7$,B6$,G7E$,,,S1$,P2$,P3$
  2750. 27500 PLAY G8$,C7$,B7$,G8E$,,,S1$,S2$,S3$,BP2$
  2751. 27510 PLAY G7F$,C7$,B6$,G7E$,G9L$,G9R$,P1$,P2$,P3$,P4$
  2752. 27520 PLAY G8F$,C7$,B7$,G8E$,G0L$,G0R$,P1$,Q2$,P3$,P4$
  2753. 27530 PLAY G7F$,C7$,B6$,G7E$,G9L$,G9R$,P1$,P2$,P3$,P4$
  2754. 27540 PLAY G8F$,C7$,B7$,G8E$,G0E$,G0F$,S1$,S2$,S3$,S4$,BP2$
  2755. 27550 PLAY C7$ ,B12$,E1L$,E1R$,G7E$,G7F$,P1$,P2$,P3$,P4$
  2756. 27560 PLAY C7$ ,B13$,E2L$,E2R$,G8E$,G8F$,P1$,Q2$,P3$,P4$
  2757. 27570 PLAY C7$ ,B12$,E1L$,E1R$,G7E$,G7F$,P1$,P2$,P3$,P4$
  2758. 27580 PLAY C7$ ,B13$,E3L$,E3R$,G8E$,G8F$,P1$,R2$,S3$,S4$
  2759. 27590 PLAY C7$ ,B12$,E1L$,E1R$,E4L$,E4R$,P1$,P2$,P3$,P4$
  2760. 27600 PLAY C7$ ,B13$,E2L$,E2R$,E5L$,E5R$,P1$,Q2$,P3$,P4$
  2761. 27610 PLAY C7$ ,B12$,E1L$,E1R$,E4L$,E4R$,P1$,P2$,P3$,P4$
  2762. 27620 PLAY C7E$,B14$,E3E$,E3F$,E6L$,E6R$,T1$,T2$,T3$,T4$
  2763. 27630 RETURN
  2764. 27640 '
  2765. 27650 '
  2766. 27660 *S_38
  2767. 27670 'ENKA HEAD
  2768. 27680 VOICE COPY 77,A : VOICE 1,A  :  VOICE COPY 17,A : VOICE 2,A
  2769. 27690 '
  2770. 27700 A1L$="@1V3O4L8 Q3%L1  AGARRDEGAR>C<RARGR   "
  2771. 27710 A1R$="@1V0O4L16Q3%R1  AEGDAECEAED<B>ECGDAECE >C<GEGAECEGD<G>D"
  2772. 27720 A2L$="@1V3O4L8 Q3%L1  DERCRRRG RA>C<AGR>DR"
  2773. 27730 A2R$="@1V2O4L16Q3%R1  D<B>EC<A>CC<GEG>C<GEG>GECG AE>C<GAEGDCG>D<BG>D"
  2774. 27740 A3L$="@1V3O4L8 Q3%L1 >CDERRGDE RAGEDC<AG   "
  2775. 27750 A3R$="@1V2O4L16Q3%R1>C<G>D<B>EC<A>EC<A>GCD<B>EC<A>EAEGDECD<B>C<GAEGD"
  2776. 27760 A4L$="@1V3O4L8 Q3%L1  AGEGEDED CDC<AGA>CD   Q8"
  2777. 27770 A4R$="@1V2O4L16Q3%R1  AEGDECGDECD<B>ECD<B> C<G>D<B>C<GAEGDAE>C<A>D<B"
  2778. 27780 A5L$="@115V1O5L16%L1  Q3  ARERDRCARAERDRCR ARERDRCARAER>CR<BR"
  2779. 27790 A5R$="@115V0O5L16%R1R Q3  ARERDRCARAERDRCR ARERDRCARAER>CR<B "
  2780. 27800 A6L$="@115V1O5L16%L1  Q3  ARERDRCARAERDRCR DRCR<ARGARAGR>CRDR"
  2781. 27810 A6R$="@115V0O5L16%R1R Q3  ARERDRCARAERDRCR DRCR<ARGARAGR>CRD "
  2782. 27820 A7L$="@115V1O5L16%L1  Q3  ARERDRCDRDCR<ARGR>ARERDRCDRDCRERGR"
  2783. 27830 A7R$="@115V0O5L16%R1R Q3  ARERDRCDRDCR<ARGR>ARERDRCDRDCRERG "
  2784. 27840 A8L$="@115V1O5L16%L1  Q3   ARERDRCDRDERGRAR >C<AR>DCREDRGERARGR Q8"
  2785. 27850 A8R$="@115V0O5L16%R1R Q3   ARERDRCDRDERGRAR >C<AR>DCREDRGERARG  Q8"
  2786. 27860 '
  2787. 27870 C1$ ="@93V3O2L16 Q3(C<<C>C>C>Q8CQ3<<C>C<C>C<C>>C<C>Q8C<Q4CCQ2C)Q8"
  2788. 27880 C1S$="@93V3O2L16 Q3 C<<C>C>C>Q8CQ3<<C>C<C>C<C>>C<C>Q8C<Q4CCQ2CC<<CQ8"
  2789. 27890 C1E$="@93V3O2L16  (Q3 AARA>Q8C8Q3<A>D8<A>Q8D#8D8C8<) "
  2790. 27900 C2L$="@83V3O2L8%L1 Q2     A>CDR <GA>CR  <A>CDR <G>DCR   %CQ8"
  2791. 27910 C2R$="@83V3O2L8%R1 Q2 R16 A>CDR <GA>CR  <A>CDR <G>DCR16 %CQ8"
  2792. 27920 C3L$="@83V3O2L8%L1 Q2     A>CDR <GA>CR <A>AD#>D#<D>D<C>C   %CQ8"
  2793. 27930 C3R$="@83V3O2L8%R1 Q2 R16 A>CDR <GA>CR <A>AD#>D#<D>D<C>C16 %CQ8"
  2794. 27940 C4$ ="@92V5O0L16 Q1(%L5CCCC%R5>Q3CQ1<CCC%L5CCCC%R5>Q3C<CCQ1C%C) Q8"
  2795. 27950 C4S$="@92V5O0L16 Q1 %L5CCCC%R5>Q3CQ1<CCC%L5CCCC%R5>Q3C<CCQ1C%CC Q8"
  2796. 27960 C5$ ="@79V6O0L16 Q1(%R2D>D%L3CR%R3AR%L3GA<)3 %C C>CRRDR<AD Q8"
  2797. 27970 C5S$="@79V6O0L16 Q1(%R2D>D%L3CR%R3AR%L3GA<)2 %C C>C<C Q8"
  2798. 27980 C6$ ="@77V0O4L16 Q4 ARRRARRE RRE<A>ARER ARRRARRE RRE<A>ARRR     Q8"
  2799. 27990 C6S$="@77V0O4L16 Q4 ARRRARRE RRE<A>ARER A     Q8"
  2800. 28000 C6E$="@77V0O4L16 Q4 ARRRARRE RRA<A>ARER A>E8<G>D8<F>C8<EG8A8>C8 Q8"
  2801. 28010 C7L$="@109V6O5L16%L1  ED#D8C8D<A8A8GA8A>C ED#D8C8D<A8A8GA8E8  %CQ8"
  2802. 28020 C7R$="@109V4O5L16%R1R ED#D8C8D<A8A8GA8A>C ED#D8C8D<A8A8GA8E   %CQ8"
  2803. 28030 C8L$="@109V6O5L16%L1  ED#D8C8D<A8A8GA8A>C ED#D8C8 G A8A8GA4   %CQ8"
  2804. 28040 C8R$="@109V4O5L16%R1R ED#D8C8D<A8A8GA8A>C ED#D8C8 G A8A8GARR  %CQ8"
  2805. 28050 C8E$="@109V6O5L16%L1  ED#D8C8D<A8A8GA8A>C ED#D8CD8<A>C8<GA8AA %CQ8"
  2806. 28060 C8F$="@109V4O5L16%R1R ED#D8C8D<A8A8GA8A>C ED#D8CD8<A>C8<GA8A  %CQ8"
  2807. 28070 C8G$="@109V6O5L16%L1 ED#D8C8D<A8A8GA8A>C @108Q1O4 (CRR)4>>A8D8"
  2808. 28080 C8H$="@109V4O5L16%R1RED#D8C8D<A8A8GA8A>  @108Q4O5 (RCR)4> RE8C"
  2809. 28090 C9L$="@115V1O4L16%L1 Q3 GR64A32&A64>CRDR<GA>CRDR< GR64A32&A64>ER<"
  2810. 28100 C9R$="@115V0O4L16%R1RQ3 GR64A32&A64>CRDR<GA>CRDR< GR64A32&A64>E<"
  2811. 28110 C0L$=C9L$+"          GAB32>C&C32DR<GA>CRDR  DR64C32&C64<A   %CQ8"
  2812. 28120 C0R$=C9R$+"        R GAB32>C&C32DR<GA>CRDR  DR64C32&C64<    %CQ8"
  2813. 28130 C9L$=C9L$+"          GR64A32&A64>CRDR<GA>CRDR< GR64A32&A64>C8 Q8"
  2814. 28140 C9R$=C9R$+"        R GR64A32&A64>CRDR<GA>CRDR< GR64A32&A64>C  Q8"
  2815. 28150 C0E$="@115V2O4L16%L1Q4 ARRARRARGRRGRRGR >CR R CR R CR DCR<ARRGR Q8%C"
  2816. 28160 C0F$="@115V2O4L16%R1Q4 ERRERAERDRRDRGDR  GR>C<GG>C<GR<AGR ERRDR Q8%C"
  2817. 28170 E1$ ="@94V0O4L16  DD#E8C8D8<A8>A8<EA>C<A> DD#E8C<C>D8 <A8>A8<A8>E8"
  2818. 28180 E2$ ="@96V0O5L16 Q1 ARE>ERR<ERARE>CR<G>GR< ARE>ERR<ERARE>CR<D>DR< Q8"
  2819. 28190 E2S$="@96V0O5L16 Q1 ARE>ERR<ERARE>CR<G>GR< A Q8"
  2820. 28200 E1L$="@109V7O5L16  A4A8RAG8EE8 D C8 DDD8D8D8 EE8E8 D E8 Q8"
  2821. 28210 E1R$="@109V5O5L16  E4EE8ED8CC8<A G8 AAA8A8A8>CC8C8<A>C8 Q8"
  2822. 28220 E1C$="@77V0O4L16 Q4 AA8A>C8<A8AA8AE8G8 AA8A>C8<A8GA8A>D8E8 Q8"
  2823. 28230 E1D$="@77V0O3L16 Q4 AA8A>C8<A8AA8AE8G8 AA8A>C8<A8GA8A>D8E8 Q8"
  2824. 28240 E1E$="@77V0O4L16 Q4 AA8A>C8<A8AA8AE8G8 AA8A>C8<A8GA8>CD8E8 Q8"
  2825. 28250 E2L$="@109V7O5L16  GAA8A8 A AGE8 D8 CC8<A>DD8D8DD EE8E8 G E8 Q8"
  2826. 28260 E2R$="@109V5O5L16  DEE8E8>D<EDC8<A8 GG8 E AA8A8AA>CC8C8 D C8 Q8"
  2827. 28270 E3L$="@109V7O6L8%L1      D4C<A2 RRGA>C DC<AG   %C"
  2828. 28280 E3R$="@109V5O6L8%R1  R16 D4C<A2 RRGA>C DC<AG16 %C"
  2829. 28290 E4L$="@109V7O6L8%L1     <EGAE4EDE2 ED8&DC   "
  2830. 28300 E4R$="@109V5O6L8%R1  R16<EGAE4EDE2 ED8&DC16 "
  2831. 28310 E5L$="@109V7O6L8%L1     <AG4EG4AG4>C<A4>DC<AG"
  2832. 28320 E5R$="@109V5O6L8%R1  R16<AG4EG4AG4>C<A4>DC<AG16"
  2833. 28330 E6L$="@109V7O6L8%L1     < A4G4E4DE4 RRED4C4 "
  2834. 28340 E6R$="@109V5O6L8%R1  R16< A4G4E4DE4 RRED4C&C16 "
  2835. 28350 E7L$="@109V7O6L16%L1    < A8>C<A>D8C<A8>DC<A>DC<AG (EGA8>C8<)>DC8<A"
  2836. 28360 E7R$="@109V5O6L16%R1 R16< A8>C<A>D8C<A8>DC<A>DC<AG (EGA8>C8<)>DC8< "
  2837. 28370 E8L$="@109V7O6L16%L1      ED8CD8GE8ED8C8D8 <G8AGE8GA8>C8<A>C8D8"
  2838. 28380 E8R$="@109V5O6L16%R1 R16  ED8CD8GE8ED8C8D8 <G8AGE8GA8>C8<A>C8D "
  2839. 28390 E9L$="@109V7O6L16%L1      ED8CD8GE8AG8>C8<A8 >D8C8<A8GA8>C<AGEDCD"
  2840. 28400 E9R$="@109V5O6L16%R1 R16  ED8CD8GE8AG8>C8<A8 >D8C8<A8GA8>C<AGEDC "
  2841. 28410 E0L$="@109V7O6L16%L1    <AARAARAARAARARAR@83V3O2L8Q1GA>CDEGA>C  Q8%C"
  2842. 28420 E0R$="@109V5O6L16%R1 R16<AARAARAARAARARAR@83V3O2L8Q1GA>CDEGA>C16Q8%C"
  2843. 28430 E0$ ="@77 V4O1L8          A2&A Q6AAAQ8 A>A<A>A C>C<D>E"
  2844. 28440 F1L$="@22V2O3L16%C <A8>(A8<A>)4A8 C8(>C8<C)4>C8 "
  2845. 28450 F1C$="@22V2O3L16%L1  >RR(C8&C)4C8   RR(E8&E)4E8 "
  2846. 28460 F1R$="@22V2O3L16%R1 >RR(E8&E)4E8   RR(G8&G)4G8 "
  2847. 28470 F2L$="@22V2O3L16%C  D8(>D8<D)4>D8<  F8(>F8<F) (>G8<G)>G8 "
  2848. 28480 F2C$="@22V2O3L16%L1  >RR(F#8&F#)4F#8  RR(A8&A)  (B8&B)B8 "
  2849. 28490 F2R$="@22V2O3L16%R1 >RR(A8&A)4A8    >RR(C8&C)  (D8&D)D8 "
  2850. 28500 F3L$="@19V3O5L16%L1 Q1 >D8C8<A8GA8>C<AGEDEG >D8C8<A8GA8>C8<A>E8E8%C"
  2851. 28510 F3R$="@19V3O5L16%R1RQ1 >D8C8<A8GA8>C<AGEDEG >D8C8<A8GA8>C8<A>E8E %C"
  2852. 28520 F4L$="@22V2O3L16%C  <F8>(F8<F>)4F8 <G8>(G8<G>)4G8 "
  2853. 28530 F4C$="@22V2O3L16%L1   RR(A8&A)4A8   RR(B8&B)4B8 "
  2854. 28540 F4R$="@22V2O3L16%R1 >RR(C8&C)4C8   RR(D8&D)4D8 "
  2855. 28550 F5L$="@108V2O5L16%L1Q1  GRRRARRGRARA>CR<AR    GRRRARRG R ARA DRER"
  2856. 28560 F5R$="@103V2O5L16%R1Q1  DDDREERD<G>E<A>EGRER  DDGREARD<G>ERE<AEBD"
  2857. 28570 F6L$="@108V2O5L16%L1Q1  GRRRARRGRARA>CR<AR    GRRRARRG R ARA>ERER"
  2858. 28580 F6R$="@103V2O5L16%R1Q1  DDDREERD<G>E<A>EGRER  DDGREARD<G>ERE ARA>A"
  2859. 28590 F7L$="@22V2O3L1%L1  A&A"
  2860. 28600 F7C$="@22V2O3L1%C  >C&C"
  2861. 28610 F7R$="@22V2O3L1%R1 >E&E"
  2862. 28620 '
  2863. 28630 B1$= "@28V6O2L16  (<A>A8)4<A8>A8  (<A>A8)4<A>EA8 "
  2864. 28640 B1F$="@96V8O1L16 Q3 ARRRARRAREARERA<A> ARRRARRARAARER>CR Q8"
  2865. 28650 B2$= "@28V6O2L16  (<A#>A#8)4<A#8>A#8 (<A#>A#8)>(<C>C8)<<A#8>A#8"
  2866. 28660 B2F$="@96V8O1L16 Q3 A#RRRA#RRA#REA#RERA#R A#RRRA#RRA#RA#A#R>CRDR Q8 "
  2867. 28670 B2S$="@28V6O2L16  (<A#>A#8)4<A#8>A#8  Q7 <A#2 >C4<A#4 Q8"
  2868. 28680 B2E$="@28V6O2L16  (<A#>A#8)4<A#8>A#8 @81V0O4Q1 AEDC<AEDC<A4E4   Q8"
  2869. 28690 B3$ ="@28V7O3L16  A<A>A8 E8G8 RRRRRRRR RRRRRRRR RR%L1DR%R1ER%CGR"
  2870. 28700 B3E$="@28V7O3L16  A<A>A8 E8G8 RRRRRRRR L8 <C>C<D>D<E>EG16<G16>G "
  2871. 28710 B4$ ="@28V7O3L16 A8A8AQ3EQ6A8G8EGRGE8 A8A8AQ3EQ6A8GQ3GQ6GG8EG8 Q8"
  2872. 28720 B4E$="@28V7O3L16 A8A8AQ3EQ6A8G8EGRGE8 GG8GG8GG8GG8>D8<G8 Q8"
  2873. 28730 B5$ ="@28V7O3L16 A#A#8AA#8(A#A#8)A8A#8 >CC8<B>C8CC8CF8E8<A#8"
  2874. 28740 B5S$="@28V7O3L16 A#A#8AA#8(A#A#8)A8A#8 @81V2O2C2&C4@91V6O1G>AE>G "
  2875. 28750 B6$ ="@28V7O3L16 Q6 A4A4]]G8[[EE8DC8 DDD8D8D8]]E[E8[E8DE8  Q8"
  2876. 28760 B6E$="@28V7O3L16 Q6 A4A4]]G8[[EE8DC8 DDD8D8D8]]E[E8[E8GA>C Q8"
  2877. 28770 B7$= "@28V7O3L16 Q6 F4RRF4FRF4 F4>C8<F4FRF4 Q8"
  2878. 28780 B8$= "@28V7O3L16 Q6 C4RRC4C4C8 C4RRC4CRC4 Q8"
  2879. 28790 B9$= "@28V7O3L16    G1 RRRRRRRR D4E4"
  2880. 28800 B10$="@28V7O3L16 Q6 A4ARRARGA8>C<RAR GRRRGRRGR>DC8<A8G8  Q8"
  2881. 28810 B11$="@28V7O3L16 Q6 (F8&F)3EFRA8F8   GRV3<G>V7DGRDGR>D<G8>C8<G8 Q8"
  2882. 28820 B12$="@28V7O2L16 Q7  (<A>A8)4<A8>A8 > (<C>C8)4<C>C<G>C Q8"
  2883. 28830 B13$="@28V7O2L16 Q7  (<F>F8)4<F8>>D8< (<G>G8)4 D8E8"
  2884. 28840 '
  2885. 28850 '
  2886. 28860 P1$= "@1V10O1L8 CRCRCRCR CRCRCRCR "
  2887. 28870 S1$= "@1V13O0L8 GRRRRRRR>RRRRRRV10CR"
  2888. 28880 Q1$= "@1V10O1L8 CRCRCRCR CRCRL16 CRRC CRCR "
  2889. 28890 P2$= "@9V7O2L16 RRRRGRRR RRRRGRRG RRRRGRRR RGRRGRRR "
  2890. 28900 S2$= "@9V7O2L16 RRRRGRRR RRRRGRRG "
  2891. 28910 P3$= "@5V2O5L16 RRBRRBRB RRBRRBBR RRBBRRBR RRBRRRBR"
  2892. 28920 S3$= "@5V2O5L16 RRBRRBRB RRBRRBBR "
  2893. 28930 P4$= "@9V2O6L16 (BB]B[B32B32) BB32B32]B[B BB]A[A (BB]B[B BB]G[B)"
  2894. 28940 S4$= "@9V2O6L16 (BB]B[B32B32) BB32B32]B[B BB]A[A  BB "
  2895. 28950 P5$= "@1V10O1L16 CRCRRRRR RRCRRRRC  CRCRRRRR RRCRRRRR"
  2896. 28960 P6$= "@9V4O3 L16 RRRRGRRG RGRRGRRR  RRRRGRRG RGRRGR[[[GG"
  2897. 28970 P7$= "@5V2O5 L16 RRRRRRCR CRRRRRCR  RRRRRRCR CRRCRRRR"
  2898. 28980 BP1$="@9V6O2L16 R1  R2 RRRC CRCR"
  2899. 28990 BP2$="@9V5O2L16 R1  R2 RRCR CRCR"
  2900. 29000 BP3$="@6V3O7L16 R1  CC]RCC]RCC]RCC]RCR]CR"
  2901. 29010 '
  2902. 29020 '
  2903. 29030 PLAY C2L$,C2R$,B1$ ,C1$ ,C6$ ,,,P1$
  2904. 29040 PLAY C2L$,C2R$,B2$ ,C1$ ,C6$ ,,,P1$
  2905. 29050 PLAY C2L$,C2R$,B1$ ,C1$ ,C6$ ,,,P1$
  2906. 29060 PLAY C3L$,C3R$,B2$ ,C1$ ,C6E$,,,Q1$,BP2$
  2907. 29070 PLAY C2L$,C2R$,B1$ ,C1$ ,C6$ ,E2$ ,,P1$,P2$,P3$,P4$
  2908. 29080 PLAY C3L$,C3R$,B2$ ,C1$ ,C6$ ,E2$ ,,P1$,P2$,P3$,P4$
  2909. 29090 PLAY C2L$,C2R$,B1$ ,C1$ ,C6$ ,E2$ ,,P1$,P2$,P3$,P4$
  2910. 29100 PLAY C3L$,C3R$,B2E$,C1S$,C6S$,E2S$,,S1$,S2$,S3$,S4$,BP1$
  2911. 29110 PLAY A1L$,A1R$,B1$ ,C1$ ,C4$ ,C5$ ,P1$,P2$,P3$,P4$
  2912. 29120 PLAY A2L$,A2R$,B2$ ,C1$ ,C4$ ,C5$ ,P1$,P2$,P3$,P4$
  2913. 29130 PLAY A3L$,A3R$,B1$ ,C1$ ,C4$ ,C5$ ,P1$,P2$,P3$,P4$
  2914. 29140 PLAY A4L$,A4R$,B2$ ,C1S$,C4S$,C5$ ,Q1$,S2$,S3$,S4$
  2915. 29150 PLAY A1L$,A1R$,B1$ ,C1E$,C4$ ,C5$ ,P1$,P2$,P3$,P4$
  2916. 29160 PLAY A2L$,A2R$,B2$ ,C1E$,C4$ ,C5$ ,P1$,P2$,P3$,P4$
  2917. 29170 PLAY A3L$,A3R$,B1$ ,C1E$,C4$ ,C5$ ,P1$,P2$,P3$,P4$
  2918. 29180 PLAY A4L$,A4R$,B2S$,C1S$,C4S$,C5S$,S1$,S2$,S3$,S4$
  2919. 29190 '
  2920. 29200 PLAY B3$ ,C4$ ,C5$ ,C1$ ,E1$,,S1$,P6$,P7$
  2921. 29210 PLAY B3$ ,C4S$,C5$ ,C1S$,E1$,,S1$,P6$,P7$
  2922. 29220 PLAY B3$ ,C4$ ,C5$ ,C1$ ,E1$,,P5$,P6$,P7$
  2923. 29230 PLAY B3E$,C4S$,C5S$,C1S$,E1$,,S1$,P6$,P7$,BP3$
  2924. 29240 PLAY B4$,C4$,C5$,E1$,C7L$,C7R$,P5$,P6$,P7$
  2925. 29250 PLAY B5$,C4$,C5$,E1$,C8L$,C8R$,P5$,P6$,P7$
  2926. 29260 PLAY B4$,C4$,C5$,E1$,C7L$,C7R$,P5$,P6$,P7$
  2927. 29270 PLAY B5$,C4$,C5$,E1$,C8E$,C8F$,S1$,P6$,P7$
  2928. 29280 PLAY B4$ ,C4$ ,C9L$,C9R$,C7L$,C7R$,P5$,P6$,P7$
  2929. 29290 PLAY B5$ ,C4$ ,C0L$,C0R$,C8L$,C8R$,P5$,P6$,P7$
  2930. 29300 PLAY B4$ ,C4$ ,C9L$,C9R$,C7L$,C7R$,P5$,P6$,P7$
  2931. 29310 PLAY B5S$,C4S$,C0E$,C0F$,C8G$,C8H$,   ,S2$,S3$,BP1$
  2932. 29320 '
  2933. 29330 PLAY B6$ ,E1L$,E1R$,E1$,C1$,E1D$,P5$,P6$,P7$,P4$
  2934. 29340 PLAY B6$ ,E2L$,E2R$,E1$,C1$,E1D$,P5$,P6$,P7$,P4$
  2935. 29350 PLAY B6$ ,E1L$,E1R$,E1$,C1$,E1C$,P5$,P6$,P7$,P4$
  2936. 29360 PLAY B6E$,E2L$,E2R$,E1$,C1$,E1E$,P5$,P6$,P7$,P4$,BP3$,BP1$
  2937. 29370 PLAY B7$ ,E3L$,E3R$,E1$,C1$,C5$,P5$,P6$,P7$
  2938. 29380 PLAY B8$ ,E4L$,E4R$,E1$,C1$,C5$,P5$,P6$,P7$
  2939. 29390 PLAY B7$ ,E3L$,E3R$,E1$,C1$,C5$,P5$,P6$,P7$,P4$
  2940. 29400 PLAY B8$ ,E5L$,E5R$,E1$,C1$,C5$,P5$,P6$,P7$,P4$
  2941. 29410 PLAY B9$ ,E6L$,E6R$,C6S$,C1S$,C5S$,S1$,S2$,S3$,BP2$
  2942. 29420 PLAY B10$,E7L$,E7R$,E1$,C1$,C5$,P1$,P2$,P3$,P4$
  2943. 29430 PLAY B11$,E8L$,E8R$,E1$,C1$,C5$,P1$,P2$,P3$,P4$
  2944. 29440 PLAY B10$,E7L$,E7R$,E1$,C1$,C5$,P1$,P2$,P3$,P4$
  2945. 29450 PLAY B11$,E9L$,E9R$,E1$,C1$,C5$,Q1$,P2$,P3$,P4$
  2946. 29460 PLAY     ,E0L$,E0R$,E0$,C1S$,C5S$,S1$,P4$,BP1$
  2947. 29470 '
  2948. 29480 '
  2949. 29490 PLAY F1L$,F1R$,F1C$,    ,E2$
  2950. 29500 PLAY F2L$,F2R$,F2C$,    ,E2$,,S1$,P6$,P7$
  2951. 29510 PLAY F1L$,F1R$,F1C$,B1F$,E2$,,P5$,P6$,P7$
  2952. 29520 PLAY F2L$,F2R$,F2C$,B1F$,E2$,,P5$,P6$,P7$,BP1$
  2953. 29530 PLAY F1L$,F1R$,B1F$,F3L$,F3R$,   ,P5$,P6$,P7$,P4$
  2954. 29540 PLAY F4L$,F4R$,B1F$,F3L$,F3R$,   ,P5$,P6$,P7$,P4$
  2955. 29550 PLAY F1L$,F1R$,B1F$,F3L$,F3R$,C5$,P5$,P6$,P7$,P4$
  2956. 29560 PLAY F4L$,F4R$,B1F$,F3L$,F3R$,C5$,P5$,P6$,P7$,P4$
  2957. 29570 PLAY F1L$,F1R$,F3L$,F3R$,A1L$,A1R$,S1$,P2$,P3$
  2958. 29580 PLAY F4L$,F4R$,F3L$,F3R$,A2L$,A2R$,S1$,P2$,P3$
  2959. 29590 PLAY F1L$,F1R$,F3L$,F3R$,A3L$,A3R$,P1$,P2$,P3$
  2960. 29600 PLAY F4L$,F4R$,F3L$,F3R$,A4L$,A4R$,Q1$,P2$,P3$,BP1$
  2961. 29610 PLAY F1L$,B12$,F3L$,F3R$,A1L$,A1R$,P1$,P2$,P3$,P4$
  2962. 29620 PLAY F4L$,B13$,F3L$,F3R$,A2L$,A2R$,Q1$,P2$,P3$,P4$
  2963. 29630 PLAY F1L$,B12$,F3L$,F3R$,A3L$,A3R$,P1$,P2$,P3$,P4$
  2964. 29640 PLAY F4L$,B13$,F3L$,F3R$,A4L$,A4R$,Q1$,P2$,P3$,S4$,BP2$
  2965. 29650 PLAY F1L$,B12$,F5L$,F5R$,A5L$,A5R$,P1$,P2$,P3$,P4$
  2966. 29660 PLAY F4L$,B13$,F6L$,F6R$,A6L$,A6R$,P1$,P2$,P3$,P4$
  2967. 29670 PLAY F1L$,B12$,F5L$,F5R$,A7L$,A7R$,P1$,P2$,P3$,P4$
  2968. 29680 PLAY F4L$,B13$,F6L$,F6R$,A8L$,A8R$,S1$,P2$,P3$,P4$,BP1$,BP3$
  2969. 29690 PLAY F1L$,F1R$,F1C$,E2$,F5L$,F5R$,P3$,P4$
  2970. 29700 PLAY F4L$,F4R$,F4C$,E2$,F6L$,F6R$,P3$,P4$
  2971. 29710 PLAY F1L$,F1R$,F1C$,   ,F5L$,F5R$
  2972. 29720 PLAY F4L$,F4R$,F4C$,   ,F6L$,F6R$
  2973. 29730 PLAY F7L$,F7R$,F7C$
  2974. 29740 RETURN
  2975. 29750 '
  2976. 29760 '
  2977. 29770 *S_39
  2978. 29780 'Love Parallel
  2979. 29790 VOICE COPY 70,A : VOICE 1,A  :  VOICE COPY 28,A : VOICE 2,A
  2980. 29800 '
  2981. 29810 A1L$="@1V5O4L16  C2&C4&C8<B>C D2&D4&D8C<B>"
  2982. 29820 A1R$="@1V3O4L16 <G2&G4&G8 G G A2&A4&A8A G  "
  2983. 29830 A2L$="@1V5O4L16  C1&C1"
  2984. 29840 A2R$="@1V3O4L16 <G1&G1"
  2985. 29850 A3L$="@1V5O4L16  C2&C4&C8CD   E4&E8 F4 E4 F8"
  2986. 29860 A3R$="@1V3O4L16 <G2&G4&G8GA  >C4&C8 C4 C4&C8"
  2987. 29870 A4L$="@1V5O4L16  G4&G8>C4&C8<[[G#4]] L8 G4&G F&F2"
  2988. 29880 A4R$="@1V3O4L16  C4&C8 G4&G8    R4   L8 C4&C C&C2"
  2989. 29890 A5L$="@1V5O4L16  G4&G8 C4&C8 D4 E2  F&F8&F&F8D8"
  2990. 29900 A5R$="@1V3O4L16  C4&C8<G4&G8 A4>C2 &C&C8 E&E8&E8"
  2991. 29910 A6L$="@1V5O4L8   E GAB&B4  E GAB &B4 >C<BAG8"
  2992. 29920 A6R$="@1V3O4L8  <B>DEG&G4 <B>DEG &G4  A GED8"
  2993. 29930 A7L$="@1V5O4L8   E4&ED4&DE4  &E2 [[[C4D4"
  2994. 29940 A7R$="@1V3O4L8  <B4&BA4&AB4  &B2 [[[G4A4"
  2995. 29950 A8L$="@1V5O4L8   E GAB&B4  E GAB &B4 >DCD4"
  2996. 29960 A8R$="@1V3O4L8  <B>DEG&G4 <B>DEG &G4  AGA4"
  2997. 29970 A9L$="@1V5O4L8  >E&E4D&D4C4 &C<B4&BE4G4"
  2998. 29980 A9R$="@1V3O4L8   B&B4A&A4G4 &G G4&GC4E4"
  2999. 29990 A0L$="@1V5O4L8   D2&D4 EF2&F  E DCD"
  3000. 30000 A0R$="@1V3O4L8  <B2&B4>CD2&D  C<BAB"
  3001. 30010 D1L$="@1V5O4L8   EG4E4&E AG&G4&G4 A4B4 "
  3002. 30020 D1R$="@1V3O4L8   CE4C4&C FE&E4&E4 F4G4"
  3003. 30030 D2L$="@1V5O4L8  >C4&C<B4&B>DC2&C <B4A4"
  3004. 30040 D2R$="@1V3O4L8   A4&A G4&G BA2&A  G4F4"
  3005. 30050 D3L$="@1V5O4L8   G&G4E&E4FG &G2 F4E4"
  3006. 30060 D3R$="@1V3O4L8   E&E4C&C4DE &E2 D4C4"
  3007. 30070 D4L$="@1V5O4L8   D1 E1"
  3008. 30080 D4R$="@1V3O4L8  <B1>C1"
  3009. 30090 D5L$="@1V5O4L8   F&F4FRFRF G4A4B4>D4"
  3010. 30100 D5R$="@1V3O4L8   D&D4DRDRD E4F4G4 B4"
  3011. 30110 D6L$="@1V5O4L8  >C&C4D&D4C4 E4DC4&C<G#4"
  3012. 30120 D6R$="@1V3O4L8   G&G4A&A4G4 B4AG4&G D#4"
  3013. 30130 D7L$="@1V5O4L8   G&G4>C&C4<B4 >C&C4 E&E4 D4"
  3014. 30140 D7R$="@1V3O4L8   E&E4 A&A4 G4  A&A4>C&C4<B4 "
  3015. 30150 D7E$="@1V5O4L8   G&G4F&F4G4 [[F2E4D4"
  3016. 30160 D7F$="@1V3O4L8   E&E4D&D4E4 [[D2C4<B4 "
  3017. 30170 D8L$="@1V2O3L16Q2  A8>C8(<A>C8)3<A>D8  C8E8(CE8)3 C D8 Q8"
  3018. 30180 D8R$="@1V2O3L16Q2  R8>E8(<R>E8)3<R>F8  R8G8(RG8)3<R>F8 Q8 "
  3019. 30190 D9L$="@1V2O3L16Q2  G8 B8( G B8)3 G>C8< A8>C8(<A>C8)3<A>E8 Q8"
  3020. 30200 D9R$="@1V2O3L16Q2  R8>D8(<R>D8)3<R>E8< R8>E8(<R>E8)3<R>G8 Q8"
  3021. 30210 D9E$="@1V2O3L16Q2  G8B8GB8G>D8<G>C8<GB8 G2A4B4 Q8"
  3022. 30220 D9F$="@1V2O3L16Q2 >R8D8RD8R F8 R E8 RD8 E2F4G4 Q8"
  3023. 30230 D0L$="@1V2O3L16Q2  F8A8(FA8)3FB8 F8A8FA8F>C8<F>D8<F>C8< Q8"
  3024. 30240 D0R$="@1V2O3L16Q2 >R8C8(RC8)3RD8 R8C8RC8R E8 R F8 R E8  Q8"
  3025. 30250 D0E$="@1V2O3L16Q2  C8E8(CE8)3CD8 C8E8CE8CG8C A8CB8 Q8"
  3026. 30260 D0F$="@1V2O3L16Q2  R8G8(RG8)3RF8 R8G8RG8RB8R>C8RD8 Q8"
  3027. 30270 '
  3028. 30280 C1$ ="@109V0O5L16 (CR<<C>CR<C>>)RR<<CG>> (CR<<C>CR<C>>)CR<CG> Q8" 
  3029. 30290 C2$ ="@109V0O5L16 (CC<<C>CG<C>>)CC<<C>G> (CC<<C>CG<C>>)CD<G>G Q8" 
  3030. 30300 C1L$="@87V2O3L8 %L1    C1<G2>G2    %C"
  3031. 30310 C1R$="@87V2O3L8 %R1 R  C1<G2>G4&G  %C"
  3032. 30320 C2L$="@87V2O3L16%L1    F2&F4&F8 GF  E2 <G4>D4    %C"
  3033. 30330 C2R$="@87V2O3L16%R1 R  F2&F4&F8 GF  E2 <G4>D8&D  %C"
  3034. 30340 C3L$="@87V2O3L16%L1    FGFEFEDE DCDC<G>CDE >C2<G4 F8DE %C"
  3035. 30350 C3R$="@87V2O3L16%R1 R  FGFEFEDE DCDC<G>CDE  G2 E4 F8D  %C"
  3036. 30360 C4L$="@87V2O3L16%L1   (<G8>CD&D8E8)3 F8ED&D8E8 %C"
  3037. 30370 C4R$="@87V2O3L16%R1 R (<G8>CD&D8E8)3 F8ED&D8E  %C"
  3038. 30380 C5L$="@87V2O3L16%L1   (<G8>CD&D8E8)3 F8DE&E8F8 %C"
  3039. 30390 C5R$="@87V2O3L16%R1 R (<G8>CD&D8E8)3 F8DE&E8F  %C"
  3040. 30400 C6$ ="@109V0O5L16    (DERGR<E>ER) DE<E>B<RB>E<A> GERDR<A>ER Q8"
  3041. 30410 C7$ ="@109V0O5L16    (DERGR<A>AR)<A>DRER<G>GD  ED<G>DR<A>ER Q8"
  3042. 30420 C6L$="@87V2O3L8 %L1    <B&B4>C&C4<B4 >D&D4C&C4<B4 "
  3043. 30430 C6R$="@87V2O3L8 %R1 R16<B&B4>C&C4<B4 >D&D4C&C4<B&B16 "
  3044. 30440 C7L$="@87V2O3L8 %L1    <A2&A&AGE&E1  "
  3045. 30450 C7R$="@87V2O3L8 %R1 R16<A2&A&AGE& E2&E4&E&E16 "
  3046. 30460 C8L$="@87V2O3L8 %L1     E1< B>CG<B>CG<B>C  "
  3047. 30470 C8R$="@87V2O3L8 %R1 R16 E1< B>CG<B>CG<B>C16"
  3048. 30480 E1$ ="@109V0O5L8    CG4RF4CE4RD4C4E4  Q8"
  3049. 30490 E2$ ="@109V0O5L8    DC4DE4FE4FE4D4C4  Q8"
  3050. 30500 E1L$="@87V2O3L8 %L1     D&D4C&C2 E&E4F&F4E4 "
  3051. 30510 E1R$="@87V2O3L8 %R1 R16 D&D4C&C2 E&E4F&F4E&E16 "
  3052. 30520 E2L$="@87V2O3L8 %L1     D&D4C&C2 &C  GFEFEDE"
  3053. 30530 E2R$="@87V2O3L8 %R1 R16 D&D4C&C2 &C  GFEFEDE16"
  3054. 30540 E3L$="@87V2O3L8 %L1     D&D4C&C2 <B>CG<B>CG<B>C"
  3055. 30550 E3R$="@87V2O3L8 %R1 R16 D&D4C&C2 <B>CG<B>CG<B>C16"
  3056. 30560 E4L$="@87V2O3L8 %L1     <B>C>C<<B>CB<B>CA<B>CG<B>CFE  "
  3057. 30570 E4R$="@87V2O3L8 %R1 R16 <B>C>C<<B>CB<B>CA<B>CG<B>CFE16 "
  3058. 30580 E5L$="@87V2O3L16%L1      GFEFEDEDCDC<B>C<BAG AB>CD CDEF EFGA GAB>D"
  3059. 30590 E5R$="@87V2O3L16%R1 R16  GFEFEDEDCDC<B>C<BAG AB>CD CDEF EFGA GAB>"
  3060. 30600 E6L$="@87V2O3L16%L1      G>C8<GB8GA8GB8>C8<B8 G>C8<GB8GA8GB8>C8G8"
  3061. 30610 E6R$="@87V2O3L16%R1 R16  G>C8<GB8GA8GB8>C8<B8 G>C8<GB8GA8GB8>C8G"
  3062. 30620 E7L$="@87V4O3L8 %L1      C1G&GFE&E&ED&D   "
  3063. 30630 E7R$="@87V2O3L8 %R1 R16  C1G&GFE&E&ED&D16 "
  3064. 30640 E8L$="@87V4O3L8 %L1      DE&EC &C&C&C&C &C<B>CG CGFE"
  3065. 30650 E8R$="@87V2O3L8 %R1 R16  DE&EC &C&C&C&C &C<B>CG CGFE16"
  3066. 30660 E9L$="@87V4O3L8 %L1      DE&EC &C&C&C&C &C Q4BBB >CCDD   Q8"
  3067. 30670 E9R$="@87V2O3L8 %R1 R16  DE&EC &C&C&C&C &C Q6BBB >CCDD16 Q8"
  3068. 30680 E3$ ="@109V0O5L8          CR<G>G RRR<F> FR<E>E R<D>DR"
  3069. 30690 E4$ ="@109V0O5L8          ER<C>C RRRR <G>GG<G> GG<B>B"
  3070. 30700 F1L$="@88V3O3L8%L1Q4    >C<BAE&E&EGB >DCDE&E&E<G>D    Q8"
  3071. 30710 F1R$="@88V2O3L8%R1Q7R16 >C<BAE&E&EGB >DCDE&E&E<G>D16  Q8"
  3072. 30720 F2L$="@88V3O3L8%L1Q4    >CDC<B&B&BEB >C<B&BA&A&AAB   Q8"
  3073. 30730 F2R$="@88V2O3L8%R1Q7R16 >CDC<B&B&BEB >C<B&BA&A&AAB16 Q8"
  3074. 30740 F3L$="@88V3O3L8%L1Q4    >CDC<B&B&BEB >C<B&BA&A&A>D&D   Q8"
  3075. 30750 F3R$="@88V2O3L8%R1Q7R16 >CDC<B&B&BEB >C<B&BA&A&A>D&D16 Q8"
  3076. 30760 F3L$="@88V3O3L8%L1Q4    >CDC<B&B&BEB >C<B&BA&A&A>D&D   Q8"
  3077. 30770 F3R$="@88V2O3L8%R1Q7R16 >CDC<B&B&BEB >C<B&BA&A&A>D&D16 Q8"
  3078. 30780 F4L$="@88V3O3L8%L1Q4    >DC&C<G&GGB>C DC&C<G&GG>GG   Q8"
  3079. 30790 F4R$="@88V2O3L8%R1Q7R16 >DC&C<G&GGB>C DC&C<G&GG>GG16 Q8"
  3080. 30800 F5L$="@88V3O3L8%L1Q4    >FEC<G&GG>CE FEFG&GFEC   Q8"
  3081. 30810 F5R$="@88V2O3L8%R1Q7R16 >FEC<G&GG>CE FEFG&GFEC16 Q8"
  3082. 30820 F6L$="@88V3O3L8%L1Q4    >F&F&FE&E&EDE& E&E&E&EC&CD&D   Q8"
  3083. 30830 F6R$="@88V2O3L8%R1Q7R16 >F&F&FE&E&EDE& E&E&E&EC&CD&D16 Q8"
  3084. 30840 '
  3085. 30850 F7L$="@88V4O3L8%L1  >E1 G&G4B&B4>C4 %C"
  3086. 30860 F7C$="@88V1O3L8%C  R>E1 G&G4B&B4>C  %C"
  3087. 30870 F7R$="@88V3O3L8%R1  >C1 E&E4G&G4 G4 %C"
  3088. 30880 F8L$="@88V4O3L8%L1  >G1 E&E4 C&C4D4 %C"
  3089. 30890 F8C$="@88V1O3L8%C  R>G1 E&E4 C&C4D  %C"
  3090. 30900 F8R$="@88V3O3L8%R1  >E1 C&C4<A&A4B4 %C"
  3091. 30910 F9L$="@88V4O3L8%L1  >G1 L16Q4 A&AGF &F&FE&E D&D&D&D C&C&C&C %CQ8"
  3092. 30920 F9C$="@88V1O3L8%C  R>G1 L16Q6 A&AGF &F&FE&E D&D&D&D C&C     %CQ8"
  3093. 30930 F9R$="@88V3O3L8%R1  >E1 L16Q5 F&FED &D&DC&C<B&B&B&B A&A&A&A %CQ8"
  3094. 30940 F0L$="@88V2O3L8%L1  >C1&C2&C4<B>C %C"
  3095. 30950 F0C$="@88V0O3L8%C  R>C1&C2&C4<B>  %C"
  3096. 30960 F0R$="@88V1O3L8%R1  >G1&G2&G4 G G %C"
  3097. 30970 F0E$="@88V2O3L8%L1  >D&DC&C&C&C<B>C D&DC&C F&FE&E %C"
  3098. 30980 F0G$="@88V0O3L8%C  R>D&DC&C&C&C<B>C D&DC&C F&FE   %C"
  3099. 30990 F0F$="@88V1O3L8%R1   B&BA&A&A&A G A B&BA&A>D&DC&C %C"
  3100. 31000 G1L$="@1V2O4L16Q2  C8E8(CE8)3CG8 <F8A8(FA8)3FB8 Q8"
  3101. 31010 G1R$="@1V2O4L16Q1  R8G8(RG8)3RB8  R8C8(RC8)3RD8 Q8"
  3102. 31020 G2L$="@1V2O4L16Q2 <A8>C8<(A>C8<)3AB8 F8A8FA8F B8GB8G>D8 Q8"
  3103. 31030 G2R$="@1V2O4L16Q1  R8 E8 (R E8 )3RD8 R8C8RC8R D8RD8R F8 Q8"
  3104. 31040 G3L$="@88V3O3L8%L1Q4   A1B2&B4>C4 Q8%C"
  3105. 31050 G3C$="@88V1O3L8%C Q8R  A1B2&B4>C  Q8%C"
  3106. 31060 G3R$="@88V2O3L8%R1Q6   F1G2&G4 A4 Q8%C"
  3107. 31070 G4L$="@88V3O3L8%L1Q4    >E2&E4&E F16E16 D2  C4D4    Q8%C"
  3108. 31080 G4C$="@88V1O3L8%C Q8R16 >E2&E4&E F16E16 D2  C4D&D16 Q8%C"
  3109. 31090 G4R$="@88V2O3L8%R1Q6    >C2&C4&C D16C16<B2  A4B4    Q8%C"
  3110. 31100 G5L$="@88V2O3L8%L1Q4    >C1    Q8%C"
  3111. 31110 G5C$="@88V0O3L8%C Q8R16 >C1    Q8%C"
  3112. 31120 G5R$="@88V1O3L8%R1Q6     G1    Q8%C"
  3113. 31130 G6L$="@1V2O4L16Q2  C Q8"
  3114. 31140 G6R$="@1V2O4L16Q1  E Q8"
  3115. 31150 '
  3116. 31160 S1L$="@87V3O3L8%L1    ECDE2C16D16 ECDE2C16D16 %C"
  3117. 31170 S1R$="@87V2O3L8%R1R16 ECDE2C16D16 ECDE2C16    %C"
  3118. 31180 S2L$="@87V3O3L8%L1    ECDE2C16D16 EGFD2C16D16 %C"
  3119. 31190 S2R$="@87V2O3L8%R1R16 ECDE2C16D16 EGFD2C16    %C" 
  3120. 31200 S3L$="@87V3O3L8%L1    ECDE2C16D16 E>C<BA16G&G16FED    %C"
  3121. 31210 S3R$="@87V2O3L8%R1R16 ECDE2C16D16 E>C<BA16G&G16FED16  %C" 
  3122. 31220 '
  3123. 31230 SB1$="@87V3O2L1 GA"
  3124. 31240 BS$ ="@2V6O3L8    C&C&C<G&GGDG F&F&FG&G&G>D&D"
  3125. 31250 B1$= "@2V6O3L16Q6 C4C8<G>C8C8CC8CD F4F&F8E8ED8C8D8 Q8"
  3126. 31260 B1E$="@2V6O3L16Q6 C4C8<G>C8C8CC8CD F4F&F8E8E<E8G8A8 Q8"
  3127. 31270 B2$= "@2V6O3L16Q6 <B4>E8&E<BRRB8>E4 <B4>E8R<BR>E<B>DE8FE   Q8"
  3128. 31280 B3$= "@2V6O3L16Q6 <ARA8>E8R<A8>E<A8>E8<A>C<ARA8>E8R<A8>E<A8>E8AEQ8"
  3129. 31290 B3E$="@2V6O3L16Q6 <ARA8>E8R<A8>E<A8>E8<A>C <ARA8>E8R<B8>F C8 G8A8Q8"
  3130. 31300 B4$ ="@2V6O3L16Q6  F8R<F>CRFREFRFRRFR FRCF<F>CFREFRFRAGF Q8"
  3131. 31310 B5$ ="@2V6O3L16Q6  CRRRCRRCR<B>CRCRC<G>C8C8C8RC RDDR ERER Q8"
  3132. 31320 B6$ ="@2V6O3L16Q6 <GGRGGRGGRGGRG8G8 GGRGGRGGRGGR>D8<G8 Q8"
  3133. 31330 B6E$="@2V6O3L16Q6  GRRGRRGRDGRGRRGR G2 F4G4 Q8"
  3134. 31340 B7$ ="@2V6O3L16Q6  CC&C8C<GB>C8C<G8>C8<B8 F8F8F8RFRFC8F8F8"
  3135. 31350 B8$ ="@2V6O3L16Q6 <A8RRAREA RGGRGRGR FRC8FRRF RGGR>D8<GR Q8"
  3136. 31360 B9$ ="@2V6O3L16Q6 <GAA8AA8A8>D<A8>C<A8B >CCC8CC8C8GG8F8E8 Q8"
  3137. 31370 B0$ ="@2V6O3L16Q6 <(G8&G)G8>C8&C<B8&B>D8< GAA8AA8A8>C<A8>E8<G8 Q8"
  3138. 31380 '
  3139. 31390 '
  3140. 31400 P1$= "@1V8 O1L16 CRRCRRCR RRCRRRRC  CRRCRRCR RRCRRRCR"
  3141. 31410 S1$= "@1V8 O1L16 CRRCRRCR RRCRRRRC  CRRRRRRR RRRCCRCR"
  3142. 31420 Q1$= "@1V8 O1L16 CRRCRRCR RRCRRRCR  CCRRRRRC RRRRRR<GR"
  3143. 31430 P2$= "@9V4 O2L16 RRRRGRRR RGRRGRRR  RRRRGRRR RGRRGR[[[GG  "
  3144. 31440 Q2$= "@9V4 O2L16 RRRRGRRR RGRRGRRR  RRRRGRRR RCRRCRRR"
  3145. 31450 R2$= "@9V4 O2L16 RRRRGRRR RGRRGRRG  RRGRGRGG RGGRG4"
  3146. 31460 P3$= "@9V1 O6L16 (BRBRBRBR BRBRBR @6CR@9) "
  3147. 31470 P4$= "@1V8 O1L16 CRRRCRRR CRRRCRCR  CRRRCRRR CRRCCRCR"
  3148. 31480 S4$= "@1V10O0L16 GRRRRRRR RRRRRRRR  RRRRRRRR V8 RRR>CCRCR"
  3149. 31490 '
  3150. 31500 '
  3151. 31510 PLAY S1L$,S1R$,SB1$,BS$
  3152. 31520 PLAY S2L$,S2R$,SB1$,BS$
  3153. 31530 PLAY S1L$,S1R$,SB1$,B1$,,,   ,P2$,P3$
  3154. 31540 PLAY S3L$,S3R$,SB1$,B1$,,,S1$,Q2$,P3$
  3155. 31550 PLAY A1L$,A1R$,B1$ ,C1L$,C1R$,C1$,P4$,P2$,P3$
  3156. 31560 PLAY A2L$,A2R$,B1$ ,C2L$,C2R$,C1$,P4$,P2$,P3$
  3157. 31570 PLAY A3L$,A3R$,B1$ ,C1L$,C1R$,C1$,P4$,P2$,P3$
  3158. 31580 PLAY A4L$,A4R$,B1$ ,C3L$,C3R$,C1$,P4$,Q2$,P3$
  3159. 31590 PLAY A1L$,A1R$,B1$ ,C4L$,C4R$,C2$,P4$,P2$,P3$
  3160. 31600 PLAY A2L$,A2R$,B1$ ,C5L$,C5R$,C2$,P4$,P2$,P3$
  3161. 31610 PLAY A3L$,A3R$,B1$ ,C4L$,C4R$,C2$,P4$,P2$,P3$
  3162. 31620 PLAY A5L$,A5R$,B1E$,C3L$,C3R$,C2$,P4$,R2$,P3$
  3163. 31630 '
  3164. 31640 PLAY A6L$,A6R$,B2$ ,C6L$,C6R$,C6$,P4$,P2$,P3$
  3165. 31650 PLAY A7L$,A7R$,B3$ ,C7L$,C7R$,C7$,P4$,P2$,P3$
  3166. 31660 PLAY A8L$,A8R$,B2$ ,C6L$,C6R$,C6$,P4$,P2$,P3$
  3167. 31670 PLAY A9L$,A9R$,B3E$,C8L$,C8R$,C7$,S4$,Q2$,P3$
  3168. 31680 PLAY A0L$,A0R$,B4$ ,E1L$,E1R$,E1$,P4$,P2$,P3$
  3169. 31690 PLAY D1L$,D1R$,B5$ ,E2L$,E2R$,E2$,P4$,P2$,P3$
  3170. 31700 PLAY D2L$,D2R$,B4$ ,E3L$,E3R$,E1$,P4$,P2$,P3$
  3171. 31710 PLAY D3L$,D3R$,B5$ ,E4L$,E4R$,E2$,P4$,Q2$,P3$
  3172. 31720 PLAY D4L$,D4R$,B6$ ,E5L$,E5R$,E3$,P1$,P2$,P3$ 'ため
  3173. 31730 PLAY D5L$,D5R$,B6$ ,E6L$,E6R$,E4$,Q1$,Q2$,P3$ '
  3174. 31740 '
  3175. 31750 PLAY D6L$,D6R$,B7$ ,E7L$,E7R$,,P4$,P2$,P3$ ' さび
  3176. 31760 PLAY D7L$,D7R$,B8$ ,E8L$,E8R$,,P4$,P2$,P3$ ' 
  3177. 31770 PLAY D6L$,D6R$,B7$ ,E7L$,E7R$,,P4$,P2$,P3$ ' 
  3178. 31780 PLAY D7E$,D7F$,B8$ ,E9L$,E9R$,,S4$,R2$,P3$ '
  3179. 31790 PLAY D8L$,D8R$,B9$ ,F1L$,F1R$,,P1$,P2$,P3$
  3180. 31800 PLAY D9L$,D9R$,B0$ ,F2L$,F2R$,,P1$,Q2$,P3$
  3181. 31810 PLAY D8L$,D8R$,B9$ ,F1L$,F1R$,,P1$,P2$,P3$
  3182. 31820 PLAY D9L$,D9R$,B0$ ,F3L$,F3R$,,S4$,R2$,P3$
  3183. 31830 PLAY D0L$,D0R$,B4$ ,F4L$,F4R$,,P1$,P2$,P3$
  3184. 31840 PLAY D0E$,D0F$,B5$ ,F5L$,F5R$,,P1$,Q2$,P3$
  3185. 31850 PLAY D0L$,D0R$,B4$ ,F4L$,F4R$,,P1$,P2$,P3$
  3186. 31860 PLAY D0E$,D0F$,B5$ ,F6L$,F6R$,,S4$,R2$,P3$
  3187. 31870 PLAY D0L$,D0R$,B4$ ,G3L$,G3R$,G3C$,P1$,P2$,P3$
  3188. 31880 PLAY D9E$,D9F$,B6E$,G4L$,G4R$,G4C$,Q1$,Q2$,P3$
  3189. 31890 PLAY G1L$,G1R$,B7$ ,F7L$,F7R$,F7C$,P4$,P2$,P3$ ' さび その２
  3190. 31900 PLAY G2L$,G2R$,B8$ ,F8L$,F8R$,F8C$,P4$,P2$,P3$ ' 
  3191. 31910 PLAY G1L$,G1R$,B7$ ,F7L$,F7R$,F7C$,P4$,P2$,P3$ ' 
  3192. 31920 PLAY G2L$,G2R$,B8$ ,F9L$,F9R$,F9C$,S4$,R2$,P3$ '
  3193. 31930 PLAY G1L$,G1R$,B7$ ,F0L$,F0R$,F0C$,P1$,P2$,P3$ ' よいん
  3194. 31940 PLAY G2L$,G2R$,B8$ ,F0E$,F0F$,F0G$,P1$,P2$,P3$ ' 
  3195. 31950 PLAY G1L$,G1R$,B7$ ,F0L$,F0R$,F0C$,P1$,P2$,P3$ ' 
  3196. 31960 PLAY G2L$,G2R$,B8$ ,F0E$,F0F$,F0G$,P1$,Q2$,P3$ ' 
  3197. 31970 PLAY G6L$,G6R$,    ,G5L$,G5R$,G5C$
  3198. 31980 RETURN
  3199. 31990 '
  3200. 32000 '
  3201. 32010 *S_43
  3202. 32020 'JUNO [TRANSY EDIT]
  3203. 32030 '
  3204. 32040 C1$= "@109V1O3L16   ARRRRRRRARRRRRR>A< ARRRRRRRARR<A>RRRR  Q8  "
  3205. 32050 C2$= "@109V1O3L16   ARRRRRRRARRRRRR E  ARRRRRRRARR<A>RRRE  Q8  "
  3206. 32060 C3$= "@12V4O1L16 Q8   (EFED# &D#8A32A#32&A# ARF#F8DC#8) Q8"
  3207. 32070 C3E$="@12V2O1L16      RRRR  RRRR ARF#F8DC#8  Q8"
  3208. 32080 C4$= "@94V9O2L16Q1   RRRARR>E<ACRD#RERGR RERARR>E<ACDD#RERGR"
  3209. 32090 C5L$="@77V3O3L16Q2    GF#EDGRDRRDRRDRRD GF#EDGRDR Q8@81O0D4@79>CRRR"
  3210. 32100 C5R$="@77V0O3L16Q2R20 GF#EDGRDRRDRRDEED GF#EDGRDR Q8@81O0D4@79>CR<C"
  3211. 32110 C6L$="@109V2O4L16Q1   FRFRFREDCR<FRAR>CR FRFRFREDCR<FRAR>CR Q8"
  3212. 32120 C6R$="@109V0O4L16Q1 R FRFRFREDCR<FRAR>CR FRFRFREDCR<FRAR>C  Q8"
  3213. 32130 C7L$="@109V2O4L16Q1   FRFRFREDCR<FRAR>CR DR<A#R>ERCRFR<ARFR Q8"
  3214. 32140 C7R$="@109V0O4L16Q1 R FRFRFREDCR<FRAR>CR DR<A#R>ERCRFR<ARF  Q8"
  3215. 32150 C8$= "@22V3O5L16 Q1   CRCRCRCR (C@91O1C@22O5CR) Q8"
  3216. 32160 C8L$="@109V2O4L16Q1   CRERGRA#R >CRR< Q8@79O1C &C&C @54CR Q8"
  3217. 32170 C8R$="@109V0O4L16Q1 R CRERGRA#R >CRR< Q8@79O1C &C&C @54C  Q8"
  3218. 32180 C9L$="@109V2O3L16Q1   (FRAR(FAR)4) Q8"
  3219. 32190 C9R$="@109V0O3L16Q1  >(RRCR(RCR)4) Q8"
  3220. 32200 C0L$="@68V4O2L16%L1 DG8C8BA8>G<D8D8>E<D8>D<G8C8>B<A8GD8>D8<ED8 Q8"
  3221. 32210 C0R$="@68V2O2L16%R1 RDG8C8BA8>G<D8D8>E<D8>D<G8C8>B<A8GD8>D8<ED Q8"
  3222. 32220 C0E$="@93V7O0L16Q1%L1 DG8C8BA8>G<D8D8>E<D8>D<G8C8>B<A8GD8>D8<ED8 Q8"
  3223. 32230 C0F$="@93V4O0L16Q4%R1 RDG8C8BA8>G<D8D8>E<D8>D<G8C8>B<A8GD8>D8<ED Q8"
  3224. 32240 '
  3225. 32250 D1L$=DL$+ "@108V1O2L16 A4A&A8&A64G64&G32A&A64G32&G64>C&C8<G&G8"
  3226. 32260 D1L$=D1L$+" A4[[G#32]]A32&A8&A64 G64&G32A&A64G32&G64E8&EG8&G"
  3227. 32270 D1R$=DR$+ "@108V0O2L16 A4EA&A8&A64G64&G32A&A64G32&G64>C&C8<G&G8"
  3228. 32280 D1R$=D1R$+" A4[[G#32]]A32&A8&A64 G64&G32A&A64G32&G64E8&EG8  "
  3229. 32290 D2L$="@34V3O2L16Q4 G8G8G&G8 F#8F#F#8F#&F#8 F&F8F8F&F8 E8EE8F8F#8Q8"
  3230. 32300 D2R$="@34V1O2L16Q8 D8D8D&D8 D8DD8D&D8      C&C8C8C&C8 C8CC8C8C8 Q8"
  3231. 32310 D3L$="@109V2O4L16Q1  F#32G&G32DE&E8F#8G8DE8&EA8 G8F#G8D8&D E8D8E8F#8"
  3232. 32320 D3R$="@109V0O4L16Q1 RF#32G&G32DE&E8F#8G8DE8&EA8 G8F#G8D8&D E8D8E8F# "
  3233. 32330 D4L$="@109V2O4L16Q1  F#32G&G32DE&E8F#8G8DE8&EA8 G8F#G8D8&D G8F#8E8D8"
  3234. 32340 D4R$="@109V0O4L16Q1 RF#32G&G32DE&E8F#8G8DE8&EA8 G8F#G8D8&D G8F#8E8D "
  3235. 32350 D5L$="@109V2O4L16Q1 G4A8D8 F#32G32&G&G8A8D8 G4A8>C8< B8A8G8F#8 Q8"
  3236. 32360 D5R$="@109V0O4L16Q1 G4A8D8 F#32G32&G&G8A8D8 G4A8>C8< B8A8G8F#8 Q8"
  3237. 32370 D6L$="@109V2O4L16Q1(B4>C8<A8) B4A8G8 F#4D8A8 Q8"
  3238. 32380 D6R$="@109V0O4L16Q1(B4>C8<A8) B4A8G8 F#4D8A8 Q8"
  3239. 32390 D7L$="@34V2O3L16Q1  GG8&GGRF#G8C8C8CCC EEDE8ERD8DDDCDEF#  Q8"
  3240. 32400 D7R$="@34V0O3L16Q8 RGG8&GGRF#G8C8C8CCC EEDE8ERD8DDDCDE    Q8"
  3241. 32410 D8L$="@34V2O3L16Q1  CG8D>G<DCG E8ED8D<B>D  CG8D>G<DCG E8EF#8F#G8Q8"
  3242. 32420 D8R$="@34V0O3L16Q8  RCG8D>G<DCG E8ED8D<B>D CG8D>G<DCG E8EF#8F#G Q8"
  3243. 32430 G1$= "@93V0O3L32Q1  CDEF GAB>C R1 AERGDRFC#RE<A#R>D<AR>C"
  3244. 32440 G2$= "@93V0O3L32Q1 (RRRR RRDR RRED RARR  RRRD EFRG AERC RGFR) "
  3245. 32450 G3$= "@93V0O3L32Q1  ERRR RF#R GRGR GGRR  R2 (RFRRECRFRRGRRBRR)"
  3246. 32460 '
  3247. 32470 B$="@106V6O1L16Q8"
  3248. 32480 B1$ =B$+"A8RAE8Q4FF#Q8GRDRRRQ3EG Q8A8RAE8Q4F#GQ8DRRRQ4F#EF#"
  3249. 32490 B1E$=B$+"(@106 Q7 D8DD @96Q4>C<AGC )3  Q8V3 @31< D8A>C<C8GA"
  3250. 32500 B2$ ="@109V5O2L16Q1 (A8E)A8> (C8<G>)C8 (D&D8)D8 CCRC D<A>DR Q8"
  3251. 32510 B3$ ="@109V5O2L16Q1 (G8C)G8  (C8<G>)C8 (E8&E)E8  (D8<A>)D8  Q8"
  3252. 32520 '
  3253. 32530 '
  3254. 32540 P1$= "@1V5 O0L16      GRRRGRRRGRRRGRGR GRRRGRRRGRRGGRGR "
  3255. 32550 S1$= "@1V9 O0L16      CRRRRRRCCRCRRRRC @4V5C"
  3256. 32560 P2$= "@9V15O1L16      CRRRRRRRRRCRRRRC CRRRRRRRRRCRRRCR "
  3257. 32570 S2$= "@9V15O0L16      C2R4RR @8V0O5 CB CRRBGRRBRBC @9V15O0 CCRCR "
  3258. 32580 P3$= "@9V5 O3L16 R150 RRRRERRRRRRRERRR RRRRERRRRER<B>ERR  "
  3259. 32590 Q3$= "@9V5 O3L16 R150 RRRRERRRRRRRERRR RR<B>RER<B>G <BCRB>GR[[GG "
  3260. 32600 P4$= "@9V2 O6L8       RERERERERERERERE"
  3261. 32610 '
  3262. 32620 '
  3263. 32630 '
  3264. 32640 PLAY C6L$,C6R$,C4$,C1$,C5L$,C5R$
  3265. 32650 PLAY C6L$,C6R$,C4$,C2$,C5L$,C5R$
  3266. 32660 PLAY C6L$,C6R$,C4$,C1$,C9L$,C9R$
  3267. 32670 PLAY C7L$,C7R$,C4$,C2$,C9L$,C9R$,S1$,S2$,Q3$
  3268. 32680 PLAY C3E$,C8$,C8L$,C8R$
  3269. 32690 PLAY D1L$,D1R$,C1$,C4$,D2L$,D2R$,S2$
  3270. 32700 PLAY D1L$,D1R$,C2$,C4$,D2L$,D2R$,S1$,S2$,P3$
  3271. 32710 PLAY B2$,D1L$,D1R$,C4$,D3L$,D3R$,P1$,P2$,P3$,P4$
  3272. 32720 PLAY B2$,D1L$,D1R$,C4$,D4L$,D4R$,P1$,P2$,P3$,P4$
  3273. 32730 PLAY B3$,D7L$,D7R$,C4$,D5L$,D5R$,P1$,P2$,P3$,P4$
  3274. 32740 PLAY B3$,D7L$,D7R$,C4$,D6L$,D6R$,P1$,S2$,P3$,P4$
  3275. 32750 PLAY B3$,D7L$,D7R$,C1$,C0L$,C0R$,P2$,P3$
  3276. 32760 PLAY B3$,D8L$,D8R$,C2$,C0L$,C0R$,P2$,Q3$
  3277. 32770 PLAY B3$,D7L$,D7R$,C1$,C0L$,C0R$,P1$,P2$,P3$,P4$
  3278. 32780 PLAY B3$,D8L$,D8R$,C2$,C0L$,C0R$,P1$,S2$,Q3$,P4$
  3279. 32790 PLAY G1$ ,C5L$,C5R$,C4$,C0E$,C0F$,S1$
  3280. 32800 PLAY C3$ ,C5L$,C5R$,C4$,C0E$,C0F$,S1$,S2$
  3281. 32810 PLAY B1$ ,C5L$,C5R$,C4$,C0E$,C0F$,P1$,P4$
  3282. 32820 PLAY B1$ ,C5L$,C5R$,C4$,C0E$,C0F$,P1$,P4$
  3283. 32830 PLAY G1$ ,C5L$,C5R$,C4$,C0E$,C0F$,P2$,P3$,P4$
  3284. 32840 PLAY C3E$,C5L$,C5R$,C4$,C0E$,C0F$,S2$,P3$,P4$
  3285. 32850 PLAY B1E$,G2$,C1$,C4$,C0E$,C0F$,P1$,P4$
  3286. 32860 PLAY B1E$,G3$,C2$,C4$,C0E$,C0F$,P1$,P4$
  3287. 32870 PLAY B1E$,G1$,C1$,C4$,C0E$,C0F$
  3288. 32880 PLAY B1E$,G3$,C2$,C4$,C0E$,C0F$
  3289. 32890 PLAY G1$ ,C4$,C0E$,C0F$
  3290. 32900 PLAY C3E$,C4$,C0E$,C0F$
  3291. 32910 RETURN
  3292. 32920 '
  3293. 32930 '
  3294. 32940 *S_42
  3295. 32950 'LAB TIME PARADIGM
  3296. 32960 AL$="@108V4O4L16%L1Q4": AR$="@108V3O4L16%R1Q6": AC$="@108V1O4L16%CQ8"
  3297. 32970 FL$="@88V3O2L16%L1Q4" : FR$="@88V0O2L16%R1Q8"
  3298. 32980 B$ ="@28V6O3L16 Q6"
  3299. 32990 SL$="@22V6O5L16 Q4" : SR$="@22V4O5L16 Q4" : SC$="@22V1O5L16 Q8"
  3300. 33000 GL$="@16V4O5L16   " : GR$="@16V1O5L16   " 
  3301. 33010 JL$="@88V2O3L16 Q4" : JR$="@88V0O3L16 Q8" 
  3302. 33020 '
  3303. 33030 A1L$=AL$+"  E&E C&CCR<A>C4&C8<A>CDE8C8CR<G#32A32>C4&CD8C8"
  3304. 33040 A1C$=AC$+"R E8 C8C8<A>C4&C8<A>CD  E8C8C8<A>C4&CD8C       "
  3305. 33050 A1R$=AR$+"  C8<A8A8 F A4&A8 R RR> C8<A8A8 F A4&AB8A8     "
  3306. 33060 A2L$=AL$+" <B&B&B>C&C&CD&D< G2&G2  >G4F4    Q8"
  3307. 33070 A2C$=AC$+"R<B&B&B>C&C&CD&D< G2&G2  >G4F&F&F Q8"
  3308. 33080 A2R$=AR$+" <G&G&G A&A&AB&B  E2&E2  >E4D4    Q8"
  3309. 33090 A3L$=AL$+" <B&B&B>C&C&CD&D E2&E2 [[[E32]]]F32&F&F8E4   Q8"
  3310. 33100 A3C$=AC$+"R<B&B&B>C&C&CD&D E2&E2 [[[E32]]]F32&F&F8E&E8 Q8"
  3311. 33110 A3R$=AR$+" <G&G&G A&A&AB&B>C2&C2  D4C4    Q8"
  3312. 33120 A4L$=AL$+"  E8 C8CR<A>C4&C8<A>CD D#32E32&EC8CR<A>C4&CD8C8"
  3313. 33130 A4C$=AC$+"R E&E C&CC8<A>C4&C8<A>CD E&E C&CC8<A>C4&CD8C  Q8"
  3314. 33140 A4R$=AR$+"  C&C<A&AA8 F A4&A8 R RR>C&C<A&AA8 F A4&AB8A8 Q8"
  3315. 33150 A5L$=AL$+"  C1&C2<A&A8B&B8>C8      Q8"
  3316. 33160 A5C$=AC$+"R C1&C2<A&A8A#32B32&B8>C Q8"
  3317. 33170 A5R$=AR$+" <A1&A2 F&F8G&BG A8      Q8"
  3318. 33180 A6L$=AL$+" <G2>G1F4E4   Q8"
  3319. 33190 A6C$=AC$+"R<G2>G1F4E&E8 Q8"
  3320. 33200 A6R$=AR$+" <E2>E1D4C4   Q8"
  3321. 33210 A7L$=AL$+" ( [[D32]]E32&E8<A&A8>C4&C8[[C#32]]D32&D C8) Q8"
  3322. 33220 A7C$=AC$+" (R[[D32]]E32&E8<A&A8>C4&C8[[C#32]]D32&D C ) Q8"
  3323. 33230 A7R$=AR$+" (   R32  C32&C8<F&F8 A4&A8  R32   B32&B>C8) Q8"
  3324. 33240 A8L$=AL$+" E&EC&CCR<A>C8CRDD#32E32DC<A>E8C8CR<A>C4&CD8C8Q8"
  3325. 33250 A8C$=AC$+"RE&EC&CC8<A>C8C8DD#32E32DC<A>E8C8CR<A>C4&CD8C Q8"
  3326. 33260 A8R$=AR$+" C8<A&AA8 F A8A8BR32>C32<BAF>C8<A8A8F A4&AB8A8Q8"
  3327. 33270 A9L$=AL$+" <B>C&C&C&C&C<L8B&B&BA&A G2B2       Q8"
  3328. 33280 A9C$=AC$+"R<B>C&C&C&C&C<L8B&B&BA&A G2B4&B&B16 Q8"
  3329. 33290 A9R$=AR$+" <G A&A&A&A&A L8G&G&GF&F E2G2       Q8"
  3330. 33300 A0L$=AL$+" <B&B8>C&C8D8  E4&E8F8 G4&G8E8 F4&F8D8     Q8"
  3331. 33310 A0C$=AC$+"R<B&B8>C&C8D8E&E8D&D8F8G&G8F&F8E8F&F8E&E8D Q8" 
  3332. 33320 A0R$=AR$+" <G&G8A&A8B8>V5C&C8D&D4E&E8F&F4D&D8E&E4    Q8" 
  3333. 33330 D1L$=AL$+"  CD8CC#32D32&D(CD8)C8<G8 >GF8EF8ED8&DC8<G8>D8Q8"
  3334. 33340 D1C$=AC$+"R CD8CD8(CD8)C8<G8 >GF8EF8E D8&DC8<G8>D  Q8"
  3335. 33350 D1R$=AR$+" <GA8GA8(GA8)G8 E8 >ED8CD8C<B8&BA8 E8 B8 Q8" 
  3336. 33360 D2L$=AL$+"  C<B8>C<G8>C<B8>CD8C8<B8>C<B8>CD8C<B8&BG8A8B8Q8"
  3337. 33370 D2C$=AC$+"R C<B8>C<G8>C<B8>CD8C8<B8>C<B8>CD8C<B8&BG8A8B Q8"
  3338. 33380 D2R$=AR$+" <G G8 G E8 G G8 GA8G8 G8 G G8 GB8A G8&GE8F8G8Q8"
  3339. 33390 D3L$=AL$+"  C<B8>C<G2>C<B8>C G2F4E4   Q8"
  3340. 33400 D3C$=AC$+"R C<B8>C<G2>C<B8>C G2F4E&E8 Q8"
  3341. 33410 D3R$=AR$+" <G G8 G E2 G G8 G>E2D4C4   Q8"
  3342. 33420 D4L$=AL$+"  C8&C4C4&C8<A8B8> C2<B2 Q8"
  3343. 33430 D4C$=AC$+"R C8&C4C4&C8<A8B8> C2<B4&B8 Q8"
  3344. 33440 D4R$=AR$+" <A8&A4A4&A8 F8G8  A2 G2 Q8"
  3345. 33450 D5L$=AL$+"  G8&G8E8&E4&E8 <A8>C8 E8F8E8 D4C8<B8 Q8"
  3346. 33460 D5C$=AC$+"R G8F8E8D4&D8   <A8>C8 E8F8E8 D4C8<B  Q8"
  3347. 33470 D5R$=AR$+"  C8F8&F8D4&D8  <E8 A8>C8D8C8<B4A8 G8 Q8"
  3348. 33480 D6L$=AL$+"  Q8 D4&D8C1"
  3349. 33490 D6R$=AR$+"R Q8 D4&D8C1"
  3350. 33500 '
  3351. 33510 E1L$=AL$+"  <RRA8AB8>C4CD8C8 <BA8G4&G8&G>G&G8<B&B8 Q8"
  3352. 33520 E1C$=AC$+"R <RRA8AB8>C4CD8C8 <BA8G4&G8&G>G&G8<B&B  Q8"
  3353. 33530 E1R$=AR$+"  <RRE8EG8 A4AB8A8  GF8E4&E8&E>E&E8<G&G8 Q8"
  3354. 33540 E2L$=AL$+"   C4&C8<BA&A4A8B8 >C8<BA4&A>D8C<B8A8B  Q8"
  3355. 33550 E2C$=AC$+"R  C4&C8<BA&A4A8B8 >C8<BA4&A>D8C<B8A8   Q8"
  3356. 33560 E2R$=AR$+"  <A4&A8 GF&F4F8G8  A8 GF4&F B8A G8F8G  Q8"
  3357. 33570 E3L$=AL$+"   C8<BA4&A B&B8>C&C8D8 C4<G4ARRA V1 >ERER  Q8"
  3358. 33580 E3C$=AC$+"R  C8<BA4&A B&B8>C&C8D8 C4<G4A4   V1 >RRR   Q8"
  3359. 33590 E3R$=AR$+"  <A8 GF4&F G&G8 A&A8B8 A4 E4FRRR V1 >CRCR  Q8"
  3360. 33600 E3E$=AL$+"   C8<BA4&A B&B8>C&C8D8 < ](GA<E>)3GG<D>A8   Q8"
  3361. 33610 E3F$=AC$+"R  C8<BA4&A B&B8>C&C8D8 < ](GA8)  3GG8A    Q8"
  3362. 33620 E3G$=AR$+"  <A8 GF4&F G&G8 A&A8B8 < ](DE<C>)3DD<G>E8   Q8"
  3363. 33630 E4L$=AL$+"   C8<BA4&A>E8 DC4&C <B8&B>C8&CD8 ER DRCR<BR Q8"
  3364. 33640 E4C$=AC$+"R  C8<BA4&A>E8 DC4&C <B8&B>C8&CD8 ER DRCR<B  Q8"
  3365. 33650 E4R$=AR$+"  <A8 GE4&E>C8<BA4&A  G8&G A8&AB8>CR<BRAR GR Q8"
  3366. 33660 E5L$=AL$+"   C8<BA4&A>E8 DC4&C <B8&B>C8&C G8FRE DRC<B8 Q8"
  3367. 33670 E5C$=AC$+"R  C8<BA4&A>E8 DC4&C <B8&B>C8&C G8FRE DRC<B  Q8"
  3368. 33680 E5R$=AR$+"  <A8 GE4&E>C8<BA4&A  G8&G A8&A>E8DRC<BRA E8 Q8"
  3369. 33690 E6L$=AL$+"   C8<BA4&A>E8 DC4&C <B8&B>C8<BA8 GRARBR>DR Q8"
  3370. 33700 E6C$=AC$+"R  C8<BA4&A>E8 DC4&C <B8&B>C8<BA8 GRARBR>D  Q8"
  3371. 33710 E6R$=AR$+"  <A8 GE4&E>C8<BA4&A  G8&G A8 GE8 ERERGR BR Q8"
  3372. 33720 E7L$=AL$+"  <A&A8B&B8>C8D&D8C&C8<B8>C8&C<G8&G>D8C8&C<G8&G>G8"
  3373. 33730 E7C$=AC$+" R<A&A8B&B8>C8D&D8C&C8<B8>C8&C<G8&G>D8C8&C<G8&G>G"
  3374. 33740 E7R$=AR$+"  <F&F8G&G8A8B&B8A&A8G8 A8&AE8&EB8A8&AE8&E>E8"
  3375. 33750 E8L$=AL$+"   E4 CRRDRCRD<BR>C8D2 G4F4   Q8"
  3376. 33760 E8C$=AC$+"R  E4 CRRDRCRD<BR>C8D2 G4F&F8 Q8"
  3377. 33770 E8R$=AR$+"   C4<ARRBRARB GR A8B2>E4D4   Q8"
  3378. 33780 '
  3379. 33790 C1$= "@15V0O4L16  (>C<GA)4(>C<G)  (>G<GA)(>D<GA)(>C<G) Q8"
  3380. 33800 C2$= "@15V0O4L16 >(E<B>C)4B<B>CD <(>C<GA)4(>C<G) Q8"
  3381. 33810 C5$= "@109V2O5L16(RR(%L1C%R1C))R<<GG>>R(RR(%L1C%R1C)) %C<B<A>>CRQ8"
  3382. 33820 C6$= "@109V2O5L16RR(%L1D%R1D)RR(%L1E%R1E)R4RR(%L1FF)RR(E%R1E)%CD8<B8"
  3383. 33830 C3L$="@94V2O5L16  G&G8F&F8E8F8&FE8&ED8 C2&C8 <G8>D8<B8 "
  3384. 33840 C3R$="@94V0O5L16R G&G8F&F8E8F8&FE8&ED8 C2&C8 <G8>D8<B  "
  3385. 33850 C4L$="@94V2O5L16  C2&C8<A8B8>C8 D2 C4<B4   "
  3386. 33860 C4R$="@94V0O5L16R C2&C8<A8B8>C8 D2 C4<B&B8 "
  3387. 33870 C7L$="@94V2O5L16  <A8&A4G8&G4F4 G8&G4F8&F4E4"
  3388. 33880 C7R$="@94V0O5L16R <A8&A4G8&G4F4 G8&G4F8&F4E8&E"
  3389. 33890 C8L$="@94V2O5L16  <D4&D8C4&C8G4 D4&D8E4&E8F4"
  3390. 33900 C8R$="@94V0O5L16R <D4&D8C4&C8G4 D4&D8E4&E8F8&F"
  3391. 33910 C8E$="@94V2O5L16  <D4&D8C4&C8G4 D4&D8E4&E8<B4  "
  3392. 33920 C8F$="@94V0O5L16R <D4&D8C4&C8G4 D4&D8E4&E8<B&B8  "
  3393. 33930 C8G$="@94V2O5L16  <D4&D8C1"
  3394. 33940 C8H$="@94V0O5L16R <D4&D8C1"
  3395. 33950 C9$= "@15V3O4L16 RRE8E8EE8EE8E8D8 C8C8C8CC8CC8D8E8   Q8"
  3396. 33960 C0$= "@15V3O4L16 RRE8D8CF8FE8D8C8 <G8B8>C8DE8ED8C8D8 Q8"
  3397. 33970 C9E$="@109V0O5L16 B&B8>C&C8<G8B&B8>C&C8D8<B&B8>C&C8<G8 B&B8>C&C8D8"
  3398. 33980 C0E$="@109V0O5L16 B&B8>C&C8<G8B&B8>C&C8G8  F&F8E&E8F8E&E8D&D8C8"
  3399. 33990 '
  3400. 34000 F1L$=FL$+"     GARAARAAR>C<A8>D8<A8 Q1BQ3BFF>C8<BG8&GE8G8B8"
  3401. 34010 F1R$=FR$+"R20  GARAARAAR>C<A8>D8<A8 Q1BQ3BFF>C8<BG8&GE8G8B "
  3402. 34020 F2L$=FL$+"    >CRCRC<B8A4&A>D8<B8 >C8<BA&A8EA>D8C<B8A8B Q8"
  3403. 34030 F2R$=FR$+"R20 >CRCRC<B8A4&A>D8<B8 >C8<BA&A8EA>D8C<B8A8  Q8"
  3404. 34040 F3L$=FL$+"    >G8FE8&EFE8&EDC8D8&D   Q8 E2<A&A8>D&D8<B Q8"
  3405. 34050 F3R$=FR$+"R20 >G8FE8&EFE8&EDC8D8&D30    C2<E&E8 B&B8 G Q8"
  3406. 34060 F4L$=FL$+"    >CDC<A4A>CDCE&E8<B>C DC<BA&A8 EABR>CRDRE  Q8"
  3407. 34070 F4R$=FR$+"R20 >CDC<A4A>CDCE&E8<B>C DC<BA&A8 EABR>CRDR   Q8"
  3408. 34080 F5L$=FL$+"    >CDC<A4A>CDCE&E8<B>C G&G8F&F8E8FEDE8D8<B Q8"
  3409. 34090 F5R$=FR$+"R20 >CDC<A4A>CDCE&E8<B>C G&G8F&F8E8FEDE8D8<  Q8"
  3410. 34100 F6L$=FL$+"     A8B>C4&C8&CG8FE8D  EDCD8C8<B8> C<BAG8B8 Q8"
  3411. 34110 F6R$=FR$+"R20  A8B>C4&C8&CG8FE8D  EDCD8C8<B8> C<BAG8B  Q8"
  3412. 34120 F7L$=FL$+"    >C4&C8<B4&B8>D4 C4&C8<B4&B8 G4   Q8"
  3413. 34130 F7R$=FR$+"R20 >C4&C8<B4&B8>D4 C4&C8<B4&B8 G&G8 Q8" 
  3414. 34140 G1L$=GL$+"  E2&E4&E8CD <A4&A8>CD <G&G8>D&D8C8 "
  3415. 34150 G1R$=GR$+"R E2&E4&E8CD <A4&A8>CD <G&G8>D&D8C  "
  3416. 34160 G2L$=GL$+"  E2&E4&E8 AR [ AARARGAR ] GERD# RDCR"
  3417. 34170 G2R$=GR$+"R E2&E4&E8 AR [ AARARGA8 ] GERD# RDC "
  3418. 34180 G3L$=GL$+"  AG#GE8D#DC&C8 <A8>E8<A8 >D8<G>C8D<A8 >E8DE8GED#"
  3419. 34190 G3R$=GR$+"R AG#GE8D#DC&C8 <A8>E8<A8 >D8<G>C8D<A8 >E8DE8GE "
  3420. 34200 G4L$=GL$+"  ([A[G]]>C<)3G#32A32G>C<AG>C<E DERGRA>C8   ERD#D8C<EG"
  3421. 34210 G4R$=GR$+"R ([A[G]]>C<)4           AG>C<E DERGRA>C<G> ERD#D8C<E"
  3422. 34220 G5L$=GL$+"  D#32E32GE (A8>C<)3G#32A32>C<A>C<A8>DC8 ED#CD#DCDC<AGA"
  3423. 34230 G5R$=GR$+"R D#32E32GE (A8>C<)3G#32A32>C<A>C<A8>DC8 ED#CD#DCDC<AG "
  3424. 34240 G6L$=GL$+"  (EG8A8>CD8<)EG8G#32A32&A>CC#32D32&D E8AE8GE8"
  3425. 34250 G6R$=GR$+"R (EG8A8>CD8<)EG8G#32A32&A>CC#32D32&D E8AE8GE "
  3426. 34260 G7L$=GL$+"  E&E8<G&G8G#32A32&A4&A8&AD#8(E>C<B)4EBA#B"
  3427. 34270 G7R$=GR$+"R E&E8<G&G8G#32A32&A4&A8&AD#8(E>C<B)4EBA# "
  3428. 34280 G8L$=GL$+"  <([[A>]E]D#[[<A>]E]D<)A>EDE [[(DED#E]) AG#EDC<BAB"
  3429. 34290 G8R$=GR$+"R <([[A>]E]D#[[<A>]E]D<)A>EDE [[(DED#E]) AG#EDC<BA"
  3430. 34300 G9L$=GL$+"  <A1&A2G2"
  3431. 34310 G9R$=GR$+"R <A1&A2G4&G8&G"
  3432. 34320 G0L$=GL$+"  <A1>C2G2"
  3433. 34330 G0R$=GR$+"R <A1>C2G4&G8&G"
  3434. 34340 G1E$=GL$+"   E2&E4&E8 C#32D32&D<A4&A8>C8<G4>C8 "
  3435. 34350 G1F$=GR$+"R  E2&E4&E8 C#32D32&D<A4&A8>C8<G4>C  "
  3436. 34360 G2E$=GL$+"  <A1&A2E2"
  3437. 34370 G2F$=GR$+"R <A1&A2E4&E8&E"
  3438. 34380 G3E$=GL$+"   <R1R2R4D#4    Q8"
  3439. 34390 G3F$=GR$+"R  <R1R2R4D#8&D# Q8"
  3440. 34400 G4E$=GL$+"   <E2&E4&E ED#8<A4&A8>C8<G8&G>D8&DC8  Q8"
  3441. 34410 G4F$=GR$+"R  <E2&E4&E ED#8<A4&A8>C8<G8&G>D8&DC   Q8"
  3442. 34420 G5E$=GL$+"   <E2&E4&E G32G#8&G#32 A4&A8GRED#8DRC<G8 Q8"
  3443. 34430 G5F$=GR$+"R  <E2&E4&E G32G#8&G#32 A4&A8GRED#8DRC<G  Q8"
  3444. 34440 G6E$=GL$+"    G&G8D&D8E2 CDE8CD8<B8>C8<A8B8GE "
  3445. 34450 G6F$=GR$+"R   G&G8D&D8E2 CDE8CD8<B8>C8<A8B8G  "
  3446. 34460 G7E$=GL$+"   <(B>C<A)4 B>C<GE DE8G8B>C#32D32&D8&D C8<B8E8"
  3447. 34470 G7F$=GR$+"R  <(B>C<A)4 B>C<GE DE8G8B>C#32D32&D8&D C8<B8E "
  3448. 34480 '
  3449. 34490 H1L$="@77V2O2L16Q8AR>A<ARA>A8CR>C<CRC>C8<DR>D<DRD>D8<<ER>E<ERE>E8<Q8"
  3450. 34500 H1R$="@77V2O3L16Q2ER>E<ERE>E8<GR>G<GRG>G8<AR>A<ARA>A8<BR>B<BRB>B8<Q8"
  3451. 34510 H2L$="@77V2O2L16Q8 A8(>A8<A)>>C8<(C>C8<) D8(>D8<D)E8<(E>E8<)  Q8"
  3452. 34520 H2H$="@77V2O2L16Q8 A8(>A8<A)>>C8<(C>C8<) D8(>D8<D)E8<E>E@88V2O4A4"
  3453. 34530 H2R$="@77V2O3L16Q2 R8(>E8<R) G8<(R>G8<) R8(>A8<R)>B8<(R>B8<)  Q8"
  3454. 34540 H1E$="@77V2O2L16Q8 A8(>A8<R)>>C8<(C>R8<) D8(>D8<D) R8<(E>E8<) Q8"
  3455. 34550 H1F$="@77V2O3L16Q2 R8(>E8<E)  G8<(R>G8<) R8(>R8<D)>R8<(R>B8<) Q8"
  3456. 34560 H2E$="@77V2O2L16Q8 A8(>A8<A)>>C8<(C>C8<) D8(>D8<D)E8<(E>E8<)  Q8"
  3457. 34570 H2F$="@77V1O3L16Q2RR8(>E8<R) G8<(R>G8<) R8(>A8<R)>B8< R>B8<R>B< Q8"
  3458. 34580 H2G$="@77V2O3L16Q2R8(>E8<R)G8<(R>G8<)R8(>A8<R)@17Q5L32>D4D#EFGAB>CD"
  3459. 34590 H3L$="@17V3O4L16Q6 E&E8 D&D4C&C8D&D8 <GRAARA8AAE>D8&DC&C8<B8 Q8"
  3460. 34600 H3R$="@17V2O4L16Q6 C&C8<B&B4A&A8B&B8  DREERE8EEC B8&BA&A8 G8 Q8" 
  3461. 34610 H4L$="@17V2O4L16Q3  ([[<B>]]C8)4D8<B8>CD8C<B8EF8&FG8A8B8 Q8"
  3462. 34620 H4R$="@17V1O4L16Q6 <([[G  ]]A8)4B8 G8 AB8A G8CD8 CE8F8G8 Q8"
  3463. 34630 H5$ ="@110V0O3L16Q1 AA8A8GAE>D8DC8C<GA AA8A8GA8DCDE8EG8 Q8"
  3464. 34640 H6$ ="@110V0O3L16Q1 AR>AR<A>AR<A>>DRDCRC<A<E AR>AR<A>A<RA>DRDEREGRQ8"
  3465. 34650 I1L$="@94V2O5L8  E1 G4&G>C4&C<B4 "
  3466. 34660 I1R$="@94V0O5L8R E1 G4&G>C4&C<B  "
  3467. 34670 I2L$="@94V2O5L8  >C2&C< E>C<B>  C2<B4A4"
  3468. 34680 I2R$="@94V0O5L8R >C2&C< E>C<B>  C2<B4A "
  3469. 34690 I3L$="@94V2O5L8  G4&GC&C4A4 G&G4C&C4<B4"
  3470. 34700 I3R$="@94V0O5L8R G4&GC&C4A4 G&G4C&C4<B "
  3471. 34710 I4L$="@94V2O5L8  C2&C4D4 E2F2  "
  3472. 34720 I4R$="@94V0O5L8R C2&C4D4 E2F&F4"
  3473. 34730 I4C$="@94V1O5L8 <A2&A4B4>C1    "
  3474. 34740 I5L$="@94V2O5L8  C1"
  3475. 34750 I5R$="@94V0O5L8  G1"
  3476. 34760 I5C$="@94V1O5L8  E1"
  3477. 34770 '
  3478. 34780 J1L$=JL$+" > B8>C4<E2EF GRFERDRE REDRCR<BR Q8"
  3479. 34790 J1R$=JR$+"R> B8>C4<E2EF G8FE8D8E 8ED8C8<B  Q8"
  3480. 34800 J2L$=JL$+" > G4F8&FE8FE8D8<B>C G4F8&FE8B>D8C8<E8"
  3481. 34810 J2R$=JR$+"R> G4F8&FE8FE8D8<B>C G4F8&FE8B>D8C8<E "
  3482. 34820 J3L$=JL$+" > C8<BA4&A>D8C<B4&B A1        "
  3483. 34830 J3R$=JR$+"R> C8<BA4&A>D8C<B4&B A2&A4&A8&A"
  3484. 34840 J4L$=JL$+" > C2<B&B8>C&C8G8 F8ED&D4 E8DC8<B8&B"
  3485. 34850 J4R$=JR$+"R> C2<B&B8>C&C8G8 F8ED&D4 E8DC8<B8 "
  3486. 34860 J5L$=JL$+" > C2<A&A8B&B8>C8 D8C<B8G8&G E8&E>D8&D<B8"
  3487. 34870 J5R$=JR$+"R> C2<A&A8B&B8>C8 D8C<B8G8&G E8&E>D8&D<B "
  3488. 34880 J6L$=JL$+" > G4D8&DE4&E8&E CDE8DC8<B&B8E8&E>D8&D<B"
  3489. 34890 J6R$=JR$+"R> G4D8&DE4&E8&E CDE8DC8<B&B8E8&E>D8&D< "
  3490. 34900 J7L$=JL$+" > C2&C4 <B4  A2>D2      "
  3491. 34910 J7R$=JR$+"R> C2&C4 <B4  A2>D4&D8&D "
  3492. 34920 J8L$=JL$+" > C1 G4F&F8E8FE8D8<B>C"
  3493. 34930 J8R$=JR$+"R> C1 G4F&F8E8FE8D8<B>"
  3494. 34940 K1$ ="@109V2O5L16 (B>C<B8G8)B>C<BG E&E8G&G8B4>D8C8<B8     Q8"
  3495. 34950 K2$ ="@109V2O5L16  C4E8&EG8B>C8E8G8< C4E8&EG8B>C8G8>C8<<  Q8"
  3496. 34960 '
  3497. 34970 B1$ =B$+"  <F4F&F8FRFF8F8G8 F4F&F8FRFF8F8E8             Q8"
  3498. 34980 B2$ =B$+"[[[C&C8C&C8C&C8CC8C8G8 C4C&C8CRCC8C8>C8        Q8"
  3499. 34990 B2E$=B$+"  <G&G8GRFG8G#G#RG#8&G#B8A&A8ARAA8 G&G8G8>D<G8 Q8"
  3500. 35000 B3$ =B$+"  <G4G4FG&G8G4 G>C<G8F8FE8EE8D8D8    Q8"
  3501. 35010 B4$ =B$+"   (C&C8)C8<B>C8C&C8C8 <(A&A8)A8 A&A8A8EA8"
  3502. 35020 B4E$=B$+"  @96V7O1L8 >C2&C4&C<G A2&A4&AE"
  3503. 35030 B5$ =B$+"  <(F&F8)F8EF8F&F8F8   (Q3GQ6G8)4F8G8 "
  3504. 35040 B5E$=B$+"  @96V7O1L8  F2&F4&FA  G2&G4>D4 "
  3505. 35050 B6$ =B$+"  <A8A8G>C8<A&A4&A8ED RRGDGG8G8>DD8C8<B8 Q8"
  3506. 35060 B7$ =B$+"  <FGF8AA8A8AA8GRA8 DR(G8&G)BR>CD8&DC8   Q8"
  3507. 35070 B8$ =B$+"  <F&F8F8EF8GBG>D8&DC8< ARA&A8GARAE8GA8     Q8"
  3508. 35080 B8E$=B$+"  <F&F8F8EF8GBG>D8&DC8< ARA&A8GARAR8RR8     Q8"
  3509. 35090 B9$ =B$+"  <A&A8ARGAE FFRFR>C<F8 D&D8D&D8ADDEE8G8>C8  Q8"
  3510. 35100 B0$ =B$+"  <F4F&F8F Q4DEQ6G8G8G8 A4A&A8ARGG8>C8<G8 Q8"
  3511. 35110 B11$=B$+"L8<F&F&FF&F4A4 G2>C<B16BG16>D"
  3512. 35120 B12$=B$+"  <(F&F8)3 F>C8<A8F8 GDG8GGRG8FG8G8G8 Q8"
  3513. 35130 B13$=B$+"  <A&A8A&A4 @109A&A8>C&C8E8<@28 EFRF8&FF8 G&G8E8&EB8"
  3514. 35140 B14$=B$+"  <A&A8A8AA8G>C8C8CC8DR<A>CRD<A>EGE8D#8DC8"
  3515. 35150 B15$=B$+"  <ARA8EA8A GR(Q3GQ6G8) DRD8DD8D EG8E8>C<B8"
  3516. 35160 B16$=B$+"  <F>C<F8BF8ARAF8B8F8 G8G8FGDG8GB8>C8D8"
  3517. 35170 B17$=B$+"[[[<<R1R2R&R8 C>E8<G8"
  3518. 35180 '
  3519. 35190 SB1$="@28V6O2L16 Q6 F4F&F8FRCF8F8G8 EF&F8F&F8FRCF8F8Q3CQ8F Q8"
  3520. 35200 SB2$="@28V6O2L16 Q6 A4A&A8AR>D<A8>C8<A8 G4G&G8GRGD8E8G8 Q8"
  3521. 35210 SB3$="@28V6O2L16 Q6 A4A8&AGA>C<CA8<A>G8 G4G&G8GRGG8B8G8 Q8"
  3522. 35220 S3A$="@96V5O2L1  FG "
  3523. 35230 S4A$="@96V5O2L1  A F4F#4G4G#4 Q8"
  3524. 35240 S1A$="@96V5O2L1  F&F2&F4G4"
  3525. 35250 S1L$=SL$+"    ((%L1EE%R1EE[)(%L1EE[%R1EE[)) %C  Q8"
  3526. 35260 S1C$=SC$+" R40   (EEEE[)(EE[EE[)(EEEE[)EE[EE[EE[E %C Q8"
  3527. 35270 S1R$=SR$+"   ((%R1CC%L1CC[)(%R1CC[%L1CC[)) %C  Q8"
  3528. 35280 S2A$="@96V5O2L1  AG"
  3529. 35290 S2L$=SL$+" (%L1CC%R1CC[)(CC[)3CDV6(%L1EE%R1EE[)(EE[)3ED Q8"
  3530. 35300 S2C$=SC$+" R40 (CCCC[)(CC[)3CDV3(EEEE[)(EE[)3E Q8"
  3531. 35310 S2R$=SR$+"<(%R1AA%L1AA[)(AA[)3ABV6>(%R1CC%L1CC[)(CC[)3C<BQ8"
  3532. 35320 S3L$=SL$+" (%L1CC%R1CC[)(CC[)3CDV6(%L1EE%R1EE[)(EE[)3EF Q8"
  3533. 35330 S3C$=SC$+" R40 (CCCC[)(CC[)3CDV3(EEEE[)(EE[)3E Q8"
  3534. 35340 S3R$=SR$+"<(%R1AA%L1AA[)(AA[)3ABV6>(%R1CC%L1CC[)(CC[)3CDQ8"
  3535. 35350 S4L$=SL$+"   V6(%L1GG[%R1GG[)4V6(%L5FFFF[)(%R5EE[EE[) %C  Q8"
  3536. 35360 S4C$=SC$+" R40   (GGGG[)4  V3(FFFF[)EE[EE[EE[E Q8"
  3537. 35370 S4R$=SR$+"   V6(%R1EE[%L1EE[)4V6(%R5DDDD[)(%L5CC[CC[) %C  Q8"
  3538. 35380 S5L$=SL$+" (%L5CCCC[)(%R5CC[CC[)<V6(%L5BBBB[)(%R5BB[BB[)Q8"
  3539. 35390 S5C$=SC$+" R40  (CCCC[)(CC[CC[)<(BBBB[)BB[BB[BB[B Q8"
  3540. 35400 S5R$=SR$+"<(%R5AAAA[)(%L5AA[AA[) V6(%R5GGGG[)(%L5GG[GG[)Q8" 
  3541. 35410 S5E$="@22V3O4L8    E&E4 C&C4D4 E&E4 C&C4 G4   Q8"
  3542. 35420 S5F$="@22V2O4L8    C&C4<A&A4B4>C&C4<A&A4>E4   Q8"
  3543. 35430 S6L$=SL$+" (%L5DD[%R5DD[)3CC<BB> (%L5CC[%R5CC[)DDDDEEFG Q8"
  3544. 35440 S6C$=SC$+" R40 (DD[DD[)3CC<BB>(CC[CC[)DDDDEEF Q8"
  3545. 35450 S6R$=SR$+"<(%R5BB[%L5BB[)3AAGG (%R5AA[%L5AA[)BBBB>CCDE Q8"
  3546. 35460 S6E$="@22V3O4L8    E&E4 C&C4D4  E4D4G4F4   Q8"
  3547. 35470 S6F$="@22V2O4L8    C&C4<A&A4B4> C4<B4>E4D4 Q8"
  3548. 35480 S7$ ="@109V2O4L16  G1F1"
  3549. 35490 S8$ ="@109V2O4L16  E2&E4&E8DE C2&C4D4   Q8"
  3550. 35500 S9$ ="@109V2O4L16  C1&C2&C4 >C4             Q8 "
  3551. 35510 S0$ ="@109V2O4L16  B4&B8>C4&C8D4 E4D4C4<B4  Q8 "
  3552. 35520 S7L$="@109V2O4L16  >C4&C8<B4E8D8C8 G2F4E4   Q8"
  3553. 35530 S7R$="@109V0O4L16 R>C4&C8<B4E8D8C8 G2F4E8&E Q8"
  3554. 35540 S8L$="@109V2O4L16   D4&D8 C8&C2 G4&G8C4&C8<B4   Q8"
  3555. 35550 S8R$="@109V0O4L16 R D4&D8 C8&C2 G4&G8C4&C8<B8&B Q8"
  3556. 35560  '
  3557. 35570 P1$= "@1V8 O1L16  CRRCRRRR RCCRRRRC CRRCRRRR RRCRRRRR"
  3558. 35580 Q1$= "@1V8 O1L16  CRRCRRRR RCCRRRRC CRRCRRRR RRRRRRRC"
  3559. 35590 S1$= "@1V13O1L16  CRRRRRRR RRRRRRRR RRRRRRRR V8 RRRCCRCR"
  3560. 35600 P2$= "@1V4 O2L16  RRRRCRRC RRRRCRRR RRRRCRRC RCRRCR[CC"
  3561. 35610 Q2$= "@1V4 O2L16  RRRRCRRC RRRRCRRR RRRRCRRC @9O3 RGRRGRRR"
  3562. 35620 R2$= "@1V4 O2L16  RRRRCRRR CCRRCRRC RRRRCRRC RCRRCR[CC"
  3563. 35630 S2$= "@1V4 O2L16  RRRRCRRC RRRRCRRR R2@9V3O3 RRRRCRRR"
  3564. 35640 P3$= "@5V2 O8L16  RRBRRRBR BRRBRRBR RRBRRRBR BRRRRRBR"
  3565. 35650 S3$= "@5V2 O8L16  RRBRRRBR BRRBRRBR RRRRRRRR RRRRRRRR"
  3566. 35660 P4$= "@9V2 O6L16  BRBRBRGR BRBRBRGR BRBRBRGR BRBRBRGR"
  3567. 35670 S4$= "@9V2 O6L16  BRBRBRGR BRBRBRGR BBRRCRRR RRRRRRBB"
  3568. 35680 BP1$="@6V4 O7L16  RRRRRRRC RRRRRRRR RCRRRCRR RBBRBBRB"
  3569. 35690 P5$ ="@1V9 O1L16  CRRRCRRR CRRRCRRR CRRRCRRR CRRRCRRR"
  3570. 35700 Q5$ ="@1V9 O1L16  CRRRCRRR CRRRCRRR CRRRCRRR CRRCCRCR"
  3571. 35710 SP1$="@1V9 O1L16  RRRRRRRR RRRRRRRR RRRRRRRR RRRCCRCR"
  3572. 35720 '
  3573. 35730 '
  3574. 35740 PLAY S1L$,S1R$,S1C$,S1A$                 '　　ぜんそう　
  3575. 35750 PLAY S2L$,S2R$,S2C$,S2A$,,,SP1$
  3576. 35760 PLAY S1L$,S1R$,S1C$,S1A$,,,P5$,P4$
  3577. 35770 PLAY S2L$,S2R$,S2C$,S2A$,B17$,,Q5$,P4$
  3578. 35780 PLAY S1L$,S1R$,S1C$,S1A$,SB1$,S7$ ,P5$,P4$
  3579. 35790 PLAY S2L$,S2R$,S2C$,S2A$,SB2$,S8$ ,Q5$,P4$
  3580. 35800 PLAY S1L$,S1R$,S1C$,S1A$,SB1$,S9$ ,P5$,P4$
  3581. 35810 PLAY S3L$,S3R$,S3C$,S2A$,SB3$,S0$ ,Q5$,P4$
  3582. 35820 PLAY S4L$,S4R$,S4C$,S1A$,S7L$,S7R$,S1$,P4$
  3583. 35830 PLAY S2L$,S2R$,S2C$,S2A$,S8L$,S8R$,Q5$,P4$
  3584. 35840 PLAY S5L$,S5R$,S5C$,S3A$,S5E$,S5F$,P5$,P2$,P3$,P4$
  3585. 35850 PLAY S6L$,S6R$,S6C$,S4A$,S6E$,S6F$,Q5$,Q2$,P3$,P4$
  3586. 35860 '
  3587. 35870 PLAY E1L$,E1R$,E1C$,B6$ ,F1L$,F1R$,P5$,P2$,P3$,P4$ 'いちばん
  3588. 35880 PLAY E2L$,E2R$,E2C$,B7$ ,F2L$,F2R$,Q5$,P2$,P3$,P4$
  3589. 35890 PLAY E1L$,E1R$,E1C$,B6$ ,F1L$,F1R$,P5$,P2$,P3$,P4$
  3590. 35900 PLAY E3L$,E3R$,E3C$,B8$ ,F3L$,F3R$,S1$,R2$,P3$,P4$
  3591. 35910 PLAY E4L$,E4R$,E4C$,B9$ ,F4L$,F4R$,P1$,P2$,P3$,P4$
  3592. 35920 PLAY E5L$,E5R$,E5C$,B9$ ,F5L$,F5R$,P1$,P2$,P3$,P4$
  3593. 35930 PLAY E6L$,E6R$,E6C$,B9$ ,F4L$,F4R$,P1$,P2$,P3$,P4$
  3594. 35940 PLAY E7L$,E7R$,E7C$,B0$ ,F6L$,F6R$,P1$,P2$,P3$,P4$
  3595. 35950 PLAY E8L$,E8R$,E8C$,B11$,F7L$,F7R$,S1$,P2$,P3$,P4$
  3596. 35960 '
  3597. 35970 PLAY A1C$,A1R$,A1L$,B1$ ,C1$,C5$,P1$,P2$,P3$,P4$   'さび
  3598. 35980 PLAY A2C$,A2R$,A2L$,B2$ ,C2$,C6$,P1$,P2$,P3$,P4$
  3599. 35990 PLAY A4C$,A4R$,A4L$,B1$ ,C1$,C5$,P1$,P2$,P3$,P4$
  3600. 36000 PLAY A3C$,A3R$,A3L$,B2$ ,C2$,C6$,S1$,P2$,P3$,P4$,BP1$
  3601. 36010 PLAY A5C$,A5R$,A5L$,B1$ ,C1$,C5$,P1$,P2$,P3$,P4$
  3602. 36020 PLAY A6C$,A6R$,A6L$,B2$ ,C2$,C6$,P1$,P2$,P3$,P4$
  3603. 36030 PLAY A7C$,A7R$,A7L$,B1$ ,C1$,C5$,P1$,P2$,P3$,P4$
  3604. 36040 PLAY A0C$,A0R$,A0L$,B2E$,C2$,C6$,P1$,Q2$,P3$,P4$
  3605. 36050 PLAY D4C$,D4R$,D4L$,B12$,   ,   ,P1$,P2$,P3$,P4$
  3606. 36060 PLAY D5C$,D5R$,D5L$,B13$,   ,   ,S1$,P2$,P3$,P4$,BP1$
  3607. 36070 '
  3608. 36080 PLAY B14$,    ,    ,H1E$,H1F$,H5$,S1$                        'そろ
  3609. 36090 PLAY B15$,G3E$,G3F$,H1E$,H1F$,H6$,Q5$,P3$
  3610. 36100 PLAY B14$,G4E$,G4F$,H2E$,H2F$,H5$,P5$,P2$,P3$
  3611. 36110 PLAY B15$,G5E$,G5F$,H2E$,H2F$,H6$,S1$,Q2$,P3$,P4$
  3612. 36120 PLAY B14$,G1L$,G1R$,H1L$,H1R$,H5$,P5$,P2$,P3$,P4$
  3613. 36130 PLAY B14$,G2L$,G2R$,H1L$,H1R$,H6$,Q5$,P2$,P3$,P4$
  3614. 36140 PLAY B14$,G3L$,G3R$,H1L$,H1R$,H5$,P5$,P2$,P3$,P4$
  3615. 36150 PLAY B14$,G4L$,G4R$,H1L$,H1R$,H6$,Q5$,P2$,P3$,P4$,BP1$
  3616. 36160 PLAY B14$,G5L$,G5R$,H1L$,H1R$,H5$,P5$,P2$,P3$,P4$
  3617. 36170 PLAY B14$,G6L$,G6R$,H1L$,H1R$,H6$,Q5$,P2$,P3$,P4$
  3618. 36180 PLAY B14$,G7L$,G7R$,H2L$,H2R$,H5$,P1$,P2$,P3$
  3619. 36190 PLAY B14$,G8L$,G8R$,H2L$,H2R$,H6$,P1$,R2$,P3$
  3620. 36200 PLAY B14$,G9L$,G9R$,H2L$,H2R$,,S1$
  3621. 36210 PLAY B14$,G0L$,G0R$,H2L$,H2G$,,S1$,P3$
  3622. 36220 PLAY B14$,G1E$,G1F$,H2L$,H3L$,H3R$,P5$,P3$
  3623. 36230 PLAY B15$,G2E$,G2F$,H2L$,H4L$,H4R$,Q5$,P2$,P3$,P4$
  3624. 36240 PLAY B14$,G6E$,G6F$,H2L$,H3L$,H3R$,P5$,P2$,P3$,P4$
  3625. 36250 PLAY B16$,G7E$,G7F$,H2H$,H4L$,H4R$,S1$,Q2$,S3$,S4$
  3626. 36260 '
  3627. 36270 '
  3628. 36280 PLAY E1L$,E1R$,E1C$,B6$ ,J1L$,J1R$,P5$,P2$,P3$,P4$    'にばん
  3629. 36290 PLAY E2L$,E2R$,E2C$,B7$ ,J2L$,J2R$,Q5$,P2$,P3$,P4$
  3630. 36300 PLAY E1L$,E1R$,E1C$,B6$ ,J1L$,J1R$,P5$,P2$,P3$,P4$
  3631. 36310 PLAY E3E$,E3F$,E3G$,B8E$,J3L$,J3R$,S1$,S2$,S3$,S4$
  3632. 36320 PLAY E4L$,E4R$,E4C$,B9$ ,J4L$,J4R$,P1$,P2$,P3$,P4$
  3633. 36330 PLAY E5L$,E5R$,E5C$,B9$ ,J5L$,J5R$,P1$,P2$,P3$,P4$
  3634. 36340 PLAY E6L$,E6R$,E6C$,B9$ ,J6L$,J6R$,P1$,P2$,P3$,P4$
  3635. 36350 PLAY E7L$,E7R$,E7C$,B0$ ,J7L$,J7R$,P1$,P2$,P3$,P4$
  3636. 36360 PLAY E8L$,E8R$,E8C$,B11$,J8L$,J8R$,S1$,P2$,P3$,P4$
  3637. 36370 '
  3638. 36380 PLAY A1C$,A1R$,A1L$,B1$ ,C1$,K1$,P1$,P2$,P3$,P4$
  3639. 36390 PLAY A2C$,A2R$,A2L$,B2$ ,C2$,K2$,P1$,P2$,P3$,P4$
  3640. 36400 PLAY A4C$,A4R$,A4L$,B1$ ,C1$,C5$,P1$,P2$,P3$,P4$
  3641. 36410 PLAY A3C$,A3R$,A3L$,B2$ ,C2$,C6$,S1$,P2$,P3$,P4$,BP1$
  3642. 36420 PLAY A5C$,A5R$,A5L$,B1$ ,C1$,K1$,P1$,P2$,P3$,P4$
  3643. 36430 PLAY A6C$,A6R$,A6L$,B2$ ,C2$,K2$,P1$,P2$,P3$,P4$
  3644. 36440 PLAY A8C$,A8R$,A8L$,B1$ ,C1$,C5$,P1$,P2$,P3$,P4$
  3645. 36450 PLAY A9C$,A9R$,A9L$,B3$ ,C2$,C6$,S1$,Q2$,P3$,P4$
  3646. 36460 '
  3647. 36470 '
  3648. 36480 PLAY D1C$,D1R$,D1L$,B4E$,C3L$,C3R$
  3649. 36490 PLAY D2C$,D2R$,D2L$,B5E$,C4L$,C4R$
  3650. 36500 PLAY D1C$,D1R$,D1L$,B4E$,C7L$,C7R$,SP1$
  3651. 36510 PLAY D3C$,D3R$,D3L$,B5E$,C8L$,C8R$,Q5$
  3652. 36520 PLAY D1C$,D1R$,D1L$,B4$ ,C3L$,C9$,P5$,P3$,P4$
  3653. 36530 PLAY D2C$,D2R$,D2L$,B5$ ,C4L$,C0$,Q5$,P3$,P4$
  3654. 36540 PLAY D1C$,D1R$,D1L$,B4$ ,C7L$,C9$,P5$,P3$,P4$
  3655. 36550 PLAY D3C$,D3R$,D3L$,B5$ ,C8L$,C0$,Q5$,P3$,P4$
  3656. 36560 PLAY B4E$,I1L$,I1R$,C9E$,D6L$,D6R$
  3657. 36570 PLAY B5E$,I2L$,I2R$,C0E$
  3658. 36580 PLAY B4E$,I3L$,I3R$,C9E$
  3659. 36590 PLAY B5E$,I4L$,I4R$,C0E$,I4C$
  3660. 36600 PLAY "@96V5O2C1",I5L$,I5R$,I5C$
  3661. 36610 RETURN
  3662. 36620 '
  3663. 36630 '
  3664. 36640 *IMAGE
  3665. 36650 CLS : SCREEN@ 2 : PALETTE 1,[250,0,0],1
  3666. 36660 '
  3667. 36670 LINE   (45,45)-(275,400),PSET,%1,BF
  3668. 36680 SYMBOL (50,60) ,"LAB TIME ",3,1  ,0,,,1,3
  3669. 36690 SYMBOL (50,80) ,"PARADIGM ",3,1  ,0,,,1,3
  3670. 36700 SYMBOL (50,100),"EP       ",3,1  ,0,,,1,13
  3671. 36710 CIRCLE (80,112),2,0,,,,F,,0 : CIRCLE (113,112),2,0,,,,F,,0
  3672. 36720 CIRCLE (162,225),90, 0,.13!,,,F,,0
  3673. 36730 CIRCLE (162,225),75,%1,.14!,,,F,,%1
  3674. 36740 SYMBOL (105,220),"STEREO",2,.6!,0,,,1,3
  3675. 36750 FOR C=0 TO 4 : CIRCLE (80+C*40,180),12,0,,,,F,,0 : NEXT C
  3676. 36760 LINE (290,45 )-(540,400),PSET,%1,BF
  3677. 36770 LINE (540,45 )-(510,75 ),PSET,0,BF: CIRCLE (510,75 ),30,%1,,,,F,,%1
  3678. 36780 LINE (540,400)-(510,370),PSET,0,BF:  CIRCLE (510,370),30,%1,,,,F,,%1
  3679. 36790 LINE (290,45 )-(320,75 ),PSET,0,BF: CIRCLE (320,75 ),30,%1,,,,F,,%1
  3680. 36800 LINE (290,400)-(320,370),PSET,0,BF: CIRCLE (320,370),30,%1,,,,F,,%1
  3681. 36810 CIRCLE (350,130),50,0,,,,F,,0 : CIRCLE (500,230),30,0,,,,F,,0
  3682. 36820 CIRCLE (400,330),40,0,,,,F,,0 : DEF PEN 0,8 
  3683. 36830 CONNECT (350,130)-(500,230)-(400,330)-(350,130),0 : DEF PEN 0,1 
  3684. 36840 FOR C=0 TO 20 : CIRCLE (415,223),(21-C)*5,0,1.5! : NEXT C
  3685. 36850 SYMBOL (369,322),"TRANSY",1,1,%1,,,1,3
  3686. 36860 SYMBOL (480,223),"ACID  ",1,1,%1,,,1,3
  3687. 36870 SYMBOL (319,113),"BORDER",1,1,%1,,,1,3
  3688. 36880 SYMBOL (319,133)," LESS ",1,1,%1,,,1,3
  3689. 36890 '
  3690. 36900 SYMBOL (50,270)," 01. 29 [2D MIX]               ",.8!,.5!,0,,,,.5!
  3691. 36910 SYMBOL (50,280)," 02. CYPRESS SONG [RADIO 6 MIX]",.8!,.5!,0,,,,.5!
  3692. 36920 SYMBOL (50,290)," 03. ENKA HEAD                 ",.8!,.5!,0,,,,.5!
  3693. 36930 SYMBOL (50,300)," 04. LOVE PARALLEL             ",.8!,.5!,0,,,,.5!
  3694. 36940 SYMBOL (50,310)," 05. JUNO [TRANSY EDIT]        ",.8!,.5!,0,,,,.5!
  3695. 36950 SYMBOL (50,320)," 06. LAB TIME PARADIGM         ",.8!,.5!,0,,,,.5!
  3696. 36960 SYMBOL (50 ,340),"ALL TRACKS                      ",.8!,.5!,0,,,,.5!
  3697. 36970 SYMBOL (50 ,350),"COMPOSED & MIXED > TAKAO KUSHIDA",.8!,.5!,0,,,,.5!
  3698. 36980 SYMBOL (50 ,360),"ART WOAK         > SOPIE        ",.8!,.5!,0,,,0,.5!
  3699. 36990 SYMBOL (50 ,370),"PROGRAMED        > TAKAO KUSHIDA",.8!,.5!,0,,,0,.5!
  3700. 37000 SYMBOL (50 ,390),"          (C) SOPIE  1993-1994  ",.8!,.5!,0,,,0,.5!
  3701. 37010 '
  3702. 37020 WHILE NOT A$="" : A$="" : A$=INKEY$ : WEND    'ｷｰﾊﾞｯﾌｧｸﾘｱ
  3703. 37030 WHILE A$=""
  3704. 37040 FOR C=0 TO 250 : PALETTE 1,[250-C/2,C,C/5],1 : NEXT C
  3705. 37050 FOR C=0 TO 250 : PALETTE 1,[125+C/2,250-C,50-C/5],1 : NEXT C
  3706. 37060 A$=INKEY$
  3707. 37070 WEND
  3708. 37080 CLS : RETURN
  3709. 37090 '
  3710. 37100 '**************************************************************************
  3711. 37110 'END OF PROGRAM
  3712.